R-如何在data.frame列中建立一个字符模式列表

Question

在R中，我的数据框中有以下列...

bodyweight  
65lbs  
72kgs  
20kgs  
30lbs  
.
.
.

我想将其转换为具有数字通用单位（kgs）的重量的列。

通过使用grep()删除了所有非数字字符，设法从列中提取了数值。 但是，要将lbs值转换为kgs我需要另外一列显示存在lbs所有单元格。 因此输出将如下所示...

bodyweight_lbs  
1  
0  
0  
1  
...

如何获得此输出？ 当我使用grep('lbs',data$bodyweight)它返回对整列中的所有lbs进行计数。

Answer 1

你可以这样

> df <- data.frame(bodyweight=c("65lbs", "72kgs", "20kgs", "30lbs"))
> df$weight_lbs <- ifelse(grepl("lbs$", as.character(df$bodyweight)), 1, 0)
> df
  bodyweight weight_lbs
1      65lbs          1
2      72kgs          0
3      20kgs          0
4      30lbs          1

grepl("lbs$", as.character(df$bodyweight))仅在向量元素最后包含子字符串lbs时才返回TRUE ，否则将返回FALSE 。 通过传递这样的内部ifelse功能，上面的代码将创建一个新的列称为weight_lbs ，它会添加值1 ，如果在相应的字符串bodyweight柱结尾lbs否则会增加0。

要么

df <- data.frame(bodyweight=c("65lbs", "72kgs", "20kgs", "30lbs"))
df$weight_lbs <- as.numeric(grepl("lbs$", as.character(df$bodyweight)))