如何修复R中的子集问题

# 示例数据框
df <- data.frame(name = c("Alice", "Bob", "Charlie"), age = c(25, 30, 35))

# 错误的索引
print(df[4, ])  # 行索引超出范围

# 正确的索引
if (nrow(df) >= 4) {
  print(df[4, ])
} else {
  print("行索引超出范围")
}

# 示例数据框
df <- data.frame(name = c("Alice", "Bob", "Charlie"), age = c(25, 30, 35))

# 错误的条件筛选
filtered_df <- df[df$age > "30", ]  # 年龄应该是数值类型，而不是字符串

# 正确的条件筛选
filtered_df <- df[df$age > 30, ]
print(filtered_df)

# 示例数据框
df <- data.frame(name = c("Alice", "Bob", "Charlie"), age = c(25, 30, 35))

# 错误的列名
print(df$gender)  # 列名不存在

# 正确的列名检查
if ("gender" %in% colnames(df)) {
  print(df$gender)
} else {
  print("列名不存在")
}

# 示例数据框
df <- data.frame(name = c("Alice", "Bob", "Charlie"), age = c(25, 30, 35))

# 使用subset函数进行条件筛选
filtered_df <- subset(df, age > 30)
print(filtered_df)