如何在R中存储多个命名规则数据框的行数信息

嘿，这事儿好办！我给你写一套清晰的R代码，轻松把所有数据框的行数存到tableROWS里，步骤都给你理清楚：

步骤1：生成所有目标数据框的名称 #

首先我们先把4种前缀和3到11的后缀组合起来，生成所有数据框的完整名称：

# 定义前缀和后缀
prefixes <- c("IALPlms", "IALPsts", "IALPlmns", "IALPstns")
suffixes <- 3:11

# 生成所有名称组合
df_names <- expand.grid(Prefix = prefixes, Suffix = suffixes)
df_names$FullName <- paste(df_names$Prefix, df_names$Suffix, sep = "")

步骤2：批量获取每个数据框的行数 #

接下来我们用sapply循环遍历每个名称，获取对应数据框的行数。这里还加了一个检查，避免某个数据框不存在时出错：

# 计算每个数据框的行数，不存在则返回NA
row_counts <- sapply(df_names$FullName, function(x) {
  if (exists(x) && is.data.frame(get(x))) {
    nrow(get(x))
  } else {
    NA
  }
})

步骤3：整理成目标数据框tableROWS #

最后把名称和行数组合成你需要的数据框：

# 创建tableROWS数据框
tableROWS <- data.frame(
  DataFrame_Name = df_names$FullName,
  Number_of_Rows = row_counts,
  stringsAsFactors = FALSE
)

# 查看结果
head(tableROWS)

这样运行完之后，tableROWS就会包含所有36个数据框的名称和对应的行数啦！如果有数据框不存在，对应的行数会显示NA，方便你排查问题。

内容的提问来源于stack exchange，提问作者dede