1
2
x <- 10  # 使用箭头赋值
y = 20   # 使用等号赋值

1
2
print(x)
cat("x的值为:", x, "\n")

1
class(x)  # 查看数据类型

1
num <- 3.14

1
char <- "Hello, R!"

1
log <- TRUE

1
factor_var <- factor(c("male", "female", "male"))

1
vec <- c(1, 2, 3, 4, 5)

1
mat <- matrix(1:9, nrow = 3, ncol = 3)

1
2
3
4
df <- data.frame(
  Name = c("Alice", "Bob", "Charlie"),
  Age = c(25, 30, 35)
)

1
lst <- list(name = "John", age = 25, scores = c(85, 90, 95))

1
2
3
4
5
if (x > 0) {
  print("x是正数")
} else {
  print("x是非正数")
}

1
2
3
for (i in 1:5) {
  print(i)
}

1
2
3
4
5
i <- 1
while (i <= 5) {
  print(i)
  i <- i + 1
}

1
2
3
4
5
6
i <- 1
repeat {
  print(i)
  i <- i + 1
  if (i > 5) break
}

1
2
3
4
5
add <- function(a, b) {
  return(a + b)
}
result <- add(5, 3)
print(result)

1
2
3
sum(vec)        # 计算向量和
mean(vec)       # 计算均值
sd(vec)         # 计算标准差

1
2
3
vec[2]       # 提取第二个元素
df[1, ]      # 提取第一行
df[, "Age"]  # 提取Age列

1
subset(df, Age > 25)

1
sorted_df <- df[order(df$Age), ]

1
plot(vec, type = "o", col = "blue", main = "简单折线图")

1
hist(vec, col = "green", main = "直方图")

1
barplot(table(factor_var), col = "red", main = "条形图")

1
install.packages("ggplot2")

1
library(ggplot2)

1
installed.packages()

1
2
write.csv(df, "data.csv")
new_df <- read.csv("data.csv")

1
2
3
4
5
6
7
8
9
10
install.packages("readxl")
library(readxl)

# 读取Excel文件
data <- read_excel("data.xlsx")

# 写入Excel文件
install.packages("writexl")
library(writexl)
write_xlsx(df, "output.xlsx")

1
2
save(df, file = "data.RData")
load("data.RData")

1
2
3
Sys.Date()               # 当前日期
Sys.time()               # 当前时间
as.Date("2024-11-24")    # 转换为日期对象

1
ls()

1
rm(x)

1
rm(list = ls())