表格中同一列的相邻数据依次作前一个和后一个的相除运算，代码如何写

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

如题，对表格中同一列的相邻数据依次作前一个和后一个的相除运算，应该用什么代码实现呢？比如一个名称为Drug的表格A列，有A1到A20共20行数据，如何批量计算前一行与后一行的相除结果，并且生成新的一列呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何写 drug

复制一列，数据往下移一行，第一行填充原数列的第一行，所以结果的第一行总是1。看看是否满足需求。
第6行应该是“B <- c(A$Drug[1],A$Drug)“，code里显示有问题

1. library(tidyverse)
   
2. 
   
3. A <- data_frame(sample(0:100, 20, replace = TRUE))
   
4. colnames(A) <- 'Drug'
   
5. 
   
6. B <- c(A$Drug[1],A$Drug)
   
7. B <- B[-length(B)]
   
8. 
   
9. A <- cbind(A, B) %>%
   
10.   mutate(result = B/A)
    
11. 
    
12. A

复制代码

为什么‘$'在code里显示不了？
第6行应该是
B <- c(A$Drug[1], A$Drug)

论坛的dollar符号显示有问题啊！

drunkfish69 发表于 2023-7-31 09:14
论坛的dollar符号显示有问题啊！

请教一下大神，B[-length(B)]的语言逻辑怎么理解啊

移除最后一个数据，保持A，B一样长

drunkfish69 发表于 2023-7-31 10:32
移除最后一个数据，保持A，B一样长

明白了，谢谢

1. # 安装包
   
2. install.packages('dplyr')
   
3. library(dplyr)
   
4. 
   
5. # 创建比例列
   
6. df <- df %>%
   
7.   mutate(
   
8.     A_ratio = A / lag(A) # 当前行除以前一行
   
9.   )
   
10. 
    
11. # 也可以反过来计算
    
12. df <- df %>%
    
13.   mutate(
    
14.     A_ratio = lag(A) / A # 前一行除以当前行
    
15.   )

复制代码