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)))