r - 删除数据框中的最后一个值,将该行绑定到相同的数据框,第一列为零,重复 100 次
问题描述
我有一个数据框'data.frame': 1 obs. of 100 variables
,我需要重复这一行 100 次,每次在 n+1 的第一列中使用不同数量的零,或者与第 1 行的索引一样多的零。同时,我需要删除行的最后一个值,以便以 100 x 100 数据框结束。
数据框如下所示:
# A tibble: 1 x 1
Mass_PM10_evdf$~ $Mass2 $Mass3 $Mass4 $Mass5 $Mass6 $Mass7 $Mass8 $Mass9
<dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1 5.48 11.1 11.3 11.4 11.6 11.7 11.9 12.1 12.2
我做了一个简短的例子来说明我需要输出的样子,只使用前 5 列。
sample$Mass1 $Mass2 $Mass3 $Mass4 $Mass5
<dbl> <dbl> <dbl> <dbl> <dbl>
1 5.49 11.1 11.3 11.4 11.6
2 0 5.49 11.1 11.3 11.4
3 0 0 5.49 11.1 11.3
4 0 0 0 5.49 11.1
5 0 0 0 0 5.49
我怎样才能以或多或少的自动方式做到这一点?我很感激帮助。
解决方案
您可以使用lapply
重复行:
vec <- unlist(df)
n <- ncol(df)
new_data <- as.data.frame(do.call(rbind, lapply(n:1,
function(x) c(rep(0, n - x), head(vec, x)))))
# Mass_PM10_evdf Mass2 Mass3 Mass4 Mass5 Mass6 Mass7 Mass8 Mass9
#1 5.48 11.10 11.30 11.40 11.60 11.70 11.90 12.10 12.20
#2 0.00 5.48 11.10 11.30 11.40 11.60 11.70 11.90 12.10
#3 0.00 0.00 5.48 11.10 11.30 11.40 11.60 11.70 11.90
#4 0.00 0.00 0.00 5.48 11.10 11.30 11.40 11.60 11.70
#5 0.00 0.00 0.00 0.00 5.48 11.10 11.30 11.40 11.60
#6 0.00 0.00 0.00 0.00 0.00 5.48 11.10 11.30 11.40
#7 0.00 0.00 0.00 0.00 0.00 0.00 5.48 11.10 11.30
#8 0.00 0.00 0.00 0.00 0.00 0.00 0.00 5.48 11.10
#9 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 5.48
数据
df <- structure(list(Mass_PM10_evdf = 5.48, Mass2 = 11.1, Mass3 = 11.3,
Mass4 = 11.4, Mass5 = 11.6, Mass6 = 11.7, Mass7 = 11.9, Mass8 = 12.1,
Mass9 = 12.2), class = "data.frame", row.names = "1")
推荐阅读
- typescript - 反应本机中的Typescript forwardRef错误
- firebase - 带参数的 Firebase 动态链接
- reactjs - 在 material-ui DatePicker 上显示标题
- java - 使用 IntSummaryStatistics 跨多个字段求平均值
- django - Django ORM:使用链接表连接两个表
- alfresco - 在此服务器上找不到 Alfresco 存储库。此应用程序是否具有跨上下文权限?)
- ios - iOS 13 Silent Push 通知方法没有被调用 application:, didReceiveRemoteNotification userInfo:, fetchCompletionHandler
- r - 如何在 R 中标准化日期时间格式
- python - 标量变量的索引无效。如何解决这个问题?
- python - 创建两个不同的数据框,一个通过选择每第 n 行,另一个使用 Python 中的剩余数据?