代码之家 › 专栏 › 技术社区 › Alex Howard

如何用秒开始的值填充数据帧?

replace dataframe r

Alex Howard · 技术社区 · 1 年前

我有一个包含二进制1和0的数据帧,我想用第二个数据帧中的一组数据填充

真实的数据帧有1000行,所以最好有一种快速的方法。

一些示例数据:

data <- data.frame(array(sample(c(0,1),25,replace=TRUE),dim=c(6,4)))
colnames(data) <- c("sp1","sp2","sp3","sp4")
size <- data.frame(array(c("sp1","sp2","sp3","sp4",13,16,14,12),dim=c(4,2)))

> data
  sp1 sp2 sp3 sp4
1   1   1   1   0
2   0   0   1   0
3   1   1   0   0
4   0   1   0   1
5   0   0   1   0
6   0   0   0   0
> size
   X1 X2
1 sp1 13
2 sp2 16
3 sp3 14
4 sp4 12

我想要一个像这样的数据帧

    sp1 sp2 sp3 sp4
1   13  16  14  0
2   0   0   14  0
3   13  16  0   0
4   0   16  0   12
5   0   0   14  0
6   0   0   0   0

2 回复 | 直到 1 年前

Andre Wildberg 1 年前

数据

(改变 尺寸$X2 到 numeric )

set.seed(1)

data <- data.frame(array(sample(c(0,1),25,replace=TRUE),dim=c(6,4)))

colnames(data) <- c("sp1","sp2","sp3","sp4")

size <- data.frame(X1=c("sp1","sp2","sp3","sp4"), X2=c(13,16,14,12))

与 sapply

data.frame(sapply(names(data), \(x)
  ifelse(data[x] == 1, size$X2[which(size$X1 == x)], 0)))
  sp1 sp2 sp3 sp4
1   0   0   0  12
2  13   0   0   0
3   0  16   0   0
4   0  16  14   0
5  13   0  14   0
6   0   0  14   0

deschen 1 年前

你可以这样做:

library(tidyverse)

data %>%
  mutate(across(everything(), 
                ~if_else(.x == 1,
                         as.numeric(size[size$X1 == cur_column(), 'X2']),
                         .x)))

由于您使用的是采样数据,我正在设置种子:

set.seed(1)

其给出以下输入和输出:

  sp1 sp2 sp3 sp4
1   0   0   0   1
2   1   0   0   0
3   0   1   0   0
4   0   1   1   0
5   1   0   1   0
6   0   0   1   0


  sp1 sp2 sp3 sp4
1   0   0   0  12
2  13   0   0   0
3   0  16   0   0
4   0  16  14   0
5  13   0  14   0
6   0   0  14   0

推荐文章

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

8 月前

Andrew Cheong · 如何在半异步情况下使用Javascript async/await?(例如,在String.replace中)[重复]

10 月前

Alex Howard · 如何用秒开始的值填充数据帧?

1 年前

user1946932 · 正则表达式:删除连续两个以上的<br>?

1 年前

leiseg · 阻止PowerShell Replace在替换字符串中添加新行[重复]

1 年前

Neeraj · 用R中的另一组单词替换该组单词

1 年前

Josephine Fang · pandas列部分子字符串替换为另一个数据帧列(如果子字符串包含字符串)

1 年前

Three Year Old · 如何仅在捕获组不为空的情况下插入特定字符?复制

1 年前

Makstvell · linux bash->sed(正则表达式)。如何用“source_dir”和“target_dir”替换所有出现的已定义节,以替换source_dir节中的内容

1 年前

Prabhu · 在文件中查找具有匹配字符串的数字,并使用ansible替换为另一个数字

1 年前