在 R 中的线图中绘制中位数和多条线

Question

我有一些移动应用程序用户的数据（不同电池电量的温度）。我想绘制每个用户的数据（全部在单线图中）以及所有用户的类似 percentage 的 temp 的中值（在同一张图中，使用粗线）。我可以使用 ggplot2 绘制除中位数以外的所有线条。这是我的虚拟数据文件（如果需要，我可以更改数据 organization/structure 或对数据进行分组）：

userId, percentage, temp
11, 2, 32
11, 3, 32
11, 4, 33
11, 5, 33
11, 7, 34
11, 10, 30
12, 2, 30
12, 3, 30
12, 4, 30
12, 5, 30
12, 7, 34
12, 10, 32

这是我目前的做法：

library(ggplot2)
sampleDataFrame <- read.table(file.choose(), sep=",", header=T)
sampleDataFrame$userId <- factor(sampleDataFrame$userId)
p1 <- ggplot(sampleDataFrame, aes(x=percentage, y=temp, colour=userId)) + geom_line()
print(p1)

结果如下：

Answer 1

你可以试试

# compute means per percentage-group:
sampleDataFrame$means <- with(sampleDataFrame, ave(temp, percentage, FUN=mean)) 
# plot
ggplot(sampleDataFrame, aes(x=percentage, y=temp, colour=userId)) + 
  geom_line() + 
  geom_line(aes(y=means), size=2, color="black")

Answer 2

除了计算新变量，您还可以使用 stat_summary:

ggplot(sampleDataFrame, aes(x=percentage, y=temp, colour=factor(userId))) + 
  geom_line() + 
  stat_summary(fun.y = "median", geom = "line", color = "black", size = 1.2)

给出：

在 R 中的线图中绘制中位数和多条线

Plotting median alongside multiple lines in a line plot in R

r

plot

ggplot2

line-plot