Question

比如说在数据集mtcars中，我如何对包含字符串＆＃34; Merc＆＃34;的所有行进行分组。并简单地用字符串＆＃34; MERC＆＃34;重命名它们。喜欢

＆＃34; Merc 240D＆＃34; -----＆GT; ＆＃34; MERC

＆＃34; Merc 230＆＃34; -----＆GT; ＆＃34; MERC

＆＃34; Merc 280＆＃34; -----＆GT; ＆＃34; MERC

＆＃34; Merc 280C＆＃34; -----＆GT; ＆＃34; MERC

＆＃34; Merc 450SE＆＃34; -----＆GT; ＆＃34; MERC

＆＃34; Merc 450SL＆＃34; -----＆GT; ＆＃34; MERC

＆＃34; Merc 450SLC＆＃34; -----＆GT; ＆＃34; MERC

非常感谢

Answer 1

怎么样：

mtcars$names <- rownames(mtcars)
mtcars$names <- gsub(".*Merc.*", "MERC", mtcars$names)

mtcars$names

返回：

 [1] "Mazda RX4"           "Mazda RX4 Wag"       "Datsun 710"          "Hornet 4 Drive"     
 [5] "Hornet Sportabout"   "Valiant"             "Duster 360"          "MERC"               
 [9] "MERC"                "MERC"                "MERC"                "MERC"               
[13] "MERC"                "MERC"                "Cadillac Fleetwood"  "Lincoln Continental"
[17] "Chrysler Imperial"   "Fiat 128"            "Honda Civic"         "Toyota Corolla"     
[21] "Toyota Corona"       "Dodge Challenger"    "AMC Javelin"         "Camaro Z28"         
[25] "Pontiac Firebird"    "Fiat X1-9"           "Porsche 914-2"       "Lotus Europa"       
[29] "Ford Pantera L"      "Ferrari Dino"        "Maserati Bora"       "Volvo 142E"

Answer 2

dplyr解决方案：

library(dplyr)
library(tibble)
mtcars %>% 
  rownames_to_column(var = "make") %>% 
  mutate(make = gsub("^Merc.+", "MERC", make))

按字符串分组并替换

2 个答案: