我正在处理一个数据集,其中许多受试者在一段时间内进行了后续判断.每次考试的年龄都有记录:

subject <- c("subject1", "subject1", "subject2", "subject2", "subject2", "subject3", "subject3")
ageAtExam <- c(50, 51, 30, 32, 35, 40, 45)
df <- data.frame(subject, ageAtExam)

> df
   subject ageAtExam
1 subject1        50
2 subject1        51
3 subject2        30
4 subject2        32
5 subject2        35
6 subject3        40
7 subject3        45

我想创建一个新的列,其中给出了第一次判断的年龄(即每subject岁的最小值为ageAtExam):

   subject ageAtExam ageAtFirstExam
1 subject1        50             50
2 subject1        51             50
3 subject2        30             30
4 subject2        32             30
5 subject2        35             30
6 subject3        40             40
7 subject3        45             40

感谢您的建议,谢谢!

推荐答案

使用ave

> ave(df$ageAtExam,df$subject,FUN=min)
[1] 50 50 30 30 30 40 40

R相关问答推荐

使用R中的gt对R中的html rmarkdown文件进行条件格式设置表的单元格

在(g)子中使用asserable字符

次级y轴R gggplot2

如何从当前行上方找到符合特定条件的最接近值?

ggplot的轴标签保存在officer中时被剪切

用相同方法得到不同函数的ROC最优截断值

删除具有相同标题的tabPanel(shinly)

为什么当用osmdata映射R时会得到相邻状态?

在R中使用Scale_y_Break后更改y轴标签

为了网络分析目的,将数据框转换为长格式列联表

使用`Watch()`和`renderUI()`时,不再满足仍出现在SHILINY AFTER条件中的条件输入

基于R中的间隔扩展数据集行

当我添加美学时,geom_point未对齐

使用R中的dist()迭代ID匹配的欧几里德距离

为左表中的所有行使用值Fill滚动左连接

如何使用同比折线图中的个别日

如何使用前缀作为匹配来连接数据帧?

如何计算增加10米(0.01公里)的行?

在散点图中使用geom_point放置线图例

组合名称具有模式的列表的元素