代码之家 › 专栏 › 技术社区 › andschar Greg Snow

数字变量与许多其他变量之间的差异

data.table r

andschar Greg Snow · 技术社区 · 7 年前

我有一个数据。与此类似的表格:

require(data.table)
dt = as.data.table(iris[ names(iris) != 'Species' ])[1:26]
dt[ , id := LETTERS ]
setnames(dt, c('col1', 'col2', 'col3', 'col4', 'id'))

我想计算每个id/行的col1与其他数字列(即col2、col3、col4)的绝对差值。我怎样才能用数据做到这一点。表或R中的其他工具?

结果应如下所示:

+--------+-------------+-------------+-------------+------+
| "col1" | "col1_col2" | "col1_col3" | "col1_col4" | "id" |
+--------+-------------+-------------+-------------+------+
| 5.1    | 1.6         | 3.7         | 4.9         | "A"  |
| 4.9    | 1.9         | 3.5         | 4.7         | "B"  |
+--------+-------------+-------------+-------------+------+

2 回复 | 直到 7 年前

eddi 7 年前

移除 copy 如果不关心修改原始表。

cols = paste0('col', 2:4)
# or if you want to be fancy
cols = setdiff(names(dt)[sapply(dt, is.numeric)], 'col1')

copy(dt)[, (cols) := col1 - .SD, .SDcols = cols][]
#    col1 col2 col3 col4 id
# 1:  5.1  1.6  3.7  4.9  A
# 2:  4.9  1.9  3.5  4.7  B
# 3:  4.7  1.5  3.4  4.5  C
# ...

Calum You 7 年前

这是一个 dplyr 解决方案 mutate_at 允许您灵活地将一个函数应用于多个列,并且可以在以后重命名这些列。

library(tidyverse)
tbl <- iris %>%
  select(-Species) %>%
  slice(1:26) %>% 
  mutate(id = LETTERS) %>%
  `colnames<-`(c("col1", "col2", "col3", "col4", "id"))

tbl %>%
  mutate_at(vars(col2:col4), funs(abs(col1 - .))) %>%
  rename_at(vars(col2:col4), ~ str_c("col1_", .))
#> # A tibble: 26 x 5
#>     col1 col1_col2 col1_col3 col1_col4 id   
#>    <dbl>     <dbl>     <dbl>     <dbl> <chr>
#>  1  5.10      1.60      3.70      4.90 A    
#>  2  4.90      1.90      3.50      4.70 B    
#>  3  4.70      1.50      3.40      4.50 C    
#>  4  4.60      1.50      3.10      4.40 D    
#>  5  5.00      1.40      3.60      4.80 E    
#>  6  5.40      1.50      3.70      5.00 F    
#>  7  4.60      1.20      3.20      4.30 G    
#>  8  5.00      1.60      3.50      4.80 H    
#>  9  4.40      1.50      3.00      4.20 I    
#> 10  4.90      1.80      3.40      4.80 J    
#> # ... with 16 more rows

创建日期:2018年4月4日 reprex package (v0.2.0)。

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前