r - 展开数据框在 R 中表现异常
问题描述
我在 R 中有以下数据框
DF2<-data.frame("A"= c(1,2,3,4,5), "B"= c(1,2,3,4,5), "C"= c(1,2,3,5,10),
"D"=c(2,3,10,NA, NA))
library(dplyr)
library(tidyr)
数据框如下所示
A B C D
1 1 1 1 2
2 2 2 2 3
3 3 3 3 10
4 4 4 5 NA
5 5 5 10 NA
我使用以下代码使用 mutate 扩展数据集,如下所示
D3<-DF2 %>%
mutate(E= pmax(A, B,C, D, na.rm = T)) %>%
complete(E = seq(max(E)))
我得到了以下输出
E A B C D
1 1 NA NA NA NA
2 2 1 1 1 2
3 3 2 2 2 3
4 4 NA NA NA NA
5 5 4 4 5 NA
6 6 NA NA NA NA
7 7 NA NA NA NA
8 8 NA NA NA NA
9 9 NA NA NA NA
10 10 3 3 3 10
11 10 5 5 10 NA
可以看出,我在E列得到了2行,value=10。预期的输出如下
E A B C D
1 1 1 1 1 NA
2 2 2 2 2 2
3 3 3 3 3 3
4 4 4 4 NA NA
5 5 5 5 5 NA
6 6 NA NA NA NA
7 7 NA NA NA NA
8 8 NA NA NA NA
9 9 NA NA NA NA
10 10 NA NA NA 10
我也尝试过使用这些代码
DF2%>%mutate(E=pmax(A,B,C,D,na.rm = TRUE)) %>%
complete(E=full_seq(E,1))
这产生了以下
E A B C D
1 2 1 1 1 2
2 3 2 2 2 3
3 4 NA NA NA NA
4 5 4 4 5 NA
5 6 NA NA NA NA
6 7 NA NA NA NA
7 8 NA NA NA NA
8 9 NA NA NA NA
9 10 3 3 3 10
10 10 5 5 10 NA
我请求有人在这里帮助我。
解决方案
推荐阅读
- python - 按值重新格式化 pandas DataFrame 计数
- authentication - TestBenchTestCase 中的依赖注入
- elasticsearch - 如何以 JSON 格式将 nginx 日志发送到 ELK?
- java - 为什么我的流复制过程的性能会稳步下降
- postgresql - 如何使用 case 表达式,然后在 postgres sql 中语句的 else 部分使用插入语句
- kubernetes - 如何在远程浏览器而不是 localhost 机器中打开 Jaeger UI(在 Istio 中运行)
- python - 使用随机梯度下降的简单逻辑回归的 numpy 和 tensorflow 实现之间的区别
- php - mysqli_fetch_array() 期望参数 1 为 mysqli_result - 需要 helpsssss
- laravel - Laravel Eloquent 获取仅属于属于 shop 的用户的日志
- output - Azure 流分析:SQL 输出不起作用