通过R数据帧循环不符合预期。 为什么？

Question

我的目标是逐行遍历R数据帧。 我知道您可以通过索引在循环外执行此操作，例如，如果我想要数据帧df的第1到5行，我只需执行df [1：5，]，就可以为其中的每一列提供行1：5我的数据框。 但是通常我并不确切知道我想要哪些行，但是我想在for循环中逐行遍历数据框，以便我可以应用“ if”条件，并将行读入列表，并为火柴。 我还没有弄清楚问题的每一步，但是我想知道为什么这个for循环的行为不如我期望的那样，但我希望如此。

因此，我正在使用内置的R数据集“ CO2”。 因此，它看起来像是84行5列：

> CO2[1:10,]
   Plant   Type  Treatment conc uptake
1    Qn1 Quebec nonchilled   95   16.0
2    Qn1 Quebec nonchilled  175   30.4
3    Qn1 Quebec nonchilled  250   34.8
4    Qn1 Quebec nonchilled  350   37.2
5    Qn1 Quebec nonchilled  500   35.3
6    Qn1 Quebec nonchilled  675   39.2
7    Qn1 Quebec nonchilled 1000   39.7
8    Qn2 Quebec nonchilled   95   13.6
9    Qn2 Quebec nonchilled  175   27.3
10   Qn2 Quebec nonchilled  250   37.1

这是我到目前为止所取得的成就。

   for(i in 1:nrow(CO2)) # "i" is incrementer from 1 to 84.
    {
        r <- CO2[i,] # r is our current row. 
        if(r$conc == 95 & r$Treatment == "nonchilled"){print(r)} 

    }

这就是我从该代码中得到的。

 Plant   Type  Treatment conc uptake
1   Qn1 Quebec nonchilled   95     16
  Plant   Type  Treatment conc uptake
8   Qn2 Quebec nonchilled   95   13.6
   Plant   Type  Treatment conc uptake
15   Qn3 Quebec nonchilled   95   16.2
   Plant        Type  Treatment conc uptake
43   Mn1 Mississippi nonchilled   95   10.6
   Plant        Type  Treatment conc uptake
50   Mn2 Mississippi nonchilled   95     12
   Plant        Type  Treatment conc uptake
57   Mn3 Mississippi nonchilled   95   11.3

太酷了。 但是，我没想到它会重复标题，所以如何在不使用子集函数的情况下修改代码以在for循环中生成此结果？ 所以我希望输出看起来像这样：

 Plant        Type  Treatment conc uptake
1    Qn1      Quebec nonchilled   95   16.0
8    Qn2      Quebec nonchilled   95   13.6
15   Qn3      Quebec nonchilled   95   16.2
43   Mn1 Mississippi nonchilled   95   10.6
50   Mn2 Mississippi nonchilled   95   12.0
57   Mn3 Mississippi nonchilled   95   11.3

如您所见，标头仅出现一次。 是的，subset函数功能强大，但是却使我无法逐行遍历数据框。

此外，我的for循环为我提供了行号，其中浓度均为95，并且处理同时“未冷冻”，这很有趣。 那么，如何隔离for循环中的那些？

嘿，我知道了。 我意识到R正在将变量“ r”解释为具有所有列和1行的数据帧。 因此，如果对if条件条件进行了内部了解，我从那里的“ r”中删除了列名，得到的结果看起来很不错，带有行号，但是不幸的是没有标题。

for(i in 1:nrow(CO2)) # "i" is incrementer from 1 to 84.
{
    r <- CO2[i,] # r is our current row. 
    if(r$conc == 95 & r$Treatment == "nonchilled"){
        names(r) = NULL; # Removes headers. # It's important to do it here specifically.
        print(r)} 
}

因此它产生了这个：

 1 Qn1 Quebec nonchilled 95 16

8 Qn2 Quebec nonchilled 95 13.6

15 Qn3 Quebec nonchilled 95 16.2

43 Mn1 Mississippi nonchilled 95 10.6

50 Mn2 Mississippi nonchilled 95 12

57 Mn3 Mississippi nonchilled 95 11.3

Answer 1

这是一个工作代码。 但是标题不对齐。

df <- mtcars
print(paste(colnames(df)))
for (i in seq(1,10)){
    r <- paste(df[i,])  
  print(r)
} 

但是，我不确定这是否对您的最终目标很有帮助。 您可以尝试以最终目的发布新问题。 通常，R对于循环完成的几乎所有操作都有替代的更好的选择。

Answer 2

这对您有用吗：

df<-data.frame(Plant=character(0), Type=character(0), 
                Treatment=character(0), conc=numeric(0), 
                uptake=numeric(0))

for(i in 1:nrow(CO2)){if(CO2$conc[i]==95 & CO2$Treatment[i]=="nonchilled"){
df<-rbind(df,CO2[i,])}}
> df
#    Plant        Type  Treatment conc uptake
#1    Qn1      Quebec nonchilled   95   16.0
#8    Qn2      Quebec nonchilled   95   13.6
#15   Qn3      Quebec nonchilled   95   16.2
#43   Mn1 Mississippi nonchilled   95   10.6
#50   Mn2 Mississippi nonchilled   95   12.0
#57   Mn3 Mississippi nonchilled   95   11.3