如何根據列的名稱乘以數據框列中的所有值？

-2

Species Aug-16 Sep-16 Aug-17 Sep-17 
Cat 740 69 758 443 
Dog 783 559 230 143 
Lizard 294 965 718 938

我想通過0.5乘在數據幀的列中的每個變量，如果該列的名字中有這個詞"Sep"。

來源

2017-10-09 R. Baratheon

我只看到了「月」，如果是「九」在str_detect功能

library(stringr) 

df[,str_detect(names(df),'Sep')]=df[,str_detect(names(df),'Sep')]*0.5 
df 
    Species Aug.16 Sep.16 Aug.17 Sep.17 
1  Cat 740 34.5 758 221.5 
2  Dog 783 279.5 230 71.5 
3 Lizard 294 482.5 718 469.0

來源

2017-10-09 15:17:05 Wen

對不起，我更新了它。感謝您指出了這一點。 –

@ R.Baratheon是否解決了您的問題？ – Wen

您可以爲「九月」做這種改變9至9月喜歡以下內容：

library(dplyr) 
col_names <- names(df %>% select(contains("Sep"))) 
df[,col_names] = df[,col_names]*0.5

來源

2017-10-09 15:19:41 OmG

在基R：

df1[grepl("Sep",names(df1))] <- 0.5* df1[grepl("Sep",names(df1))]

來源

2017-10-09 15:21:26

甲dplyr選項：

library(dplyr) 

df <- structure(list(Species = c("Cat", "Dog", "Lizard"), 
        `Aug-16` = c(740L, 783L, 294L), 
        `Sep-16` = c(69L, 559L, 965L), 
        `Aug-17` = c(758L, 230L, 718L), 
        `Sep-17` = c(443L, 143L, 938L)), 
       .Names = c("Species", "Aug-16", "Sep-16", "Aug-17", "Sep-17"), 
       class = "data.frame", row.names = c(NA, -3L)) 

df2 <- df %>% mutate_at(vars(starts_with('Sep')), funs(. * .5)) 

df2 
#> Species Aug-16 Sep-16 Aug-17 Sep-17 
#> 1  Cat 740 34.5 758 221.5 
#> 2  Dog 783 279.5 230 71.5 
#> 3 Lizard 294 482.5 718 469.0

來源

2017-10-09 15:54:33 alistaire

如何根據列的名稱乘以數據框列中的所有值？

回答

相關問題