Question

我有一个运行7天的数据集，产生分为15分钟的每一天的累积计数

时间段从早上12点开始，一直持续到第二天的12点。 订单很重要。

下面是一个弥补的样本（为凌乱的性质道歉）

library(tidyverse)

add_break <- function(check) {
      Zero_break <- paste(check, '00', sep=":") %>% as_tibble()
      fifteen_break <- paste(check, '15', sep=":") %>% as_tibble()
      thirty_break <- paste(check, '30', sep=":") %>% as_tibble()
      fortyfive_break <- paste(check, '45', sep=":") %>% as_tibble()
      bind_rows(Zero_break, fifteen_break, thirty_break, fortyfive_break)
}

# Create the Levels for the Time for every 15 mins
pm <- paste(seq(12,23), sep='') %>% as_tibble()
am <- paste(0, seq(00,09), sep='') %>% as_tibble()
am_2 <- paste(seq(10,11), sep='') %>% as_tibble()
clock <- pm %>% bind_rows(am, am_2)
intervals <- map_df(clock$value, add_break)

# Create Random data for cumsum
mydf <- intervals %>% 
  mutate(MON = cumsum(sample(1:100,size = 96,replace = TRUE)),
         TUE = cumsum(sample(1:100,size = 96,replace = TRUE)),
         WED = cumsum(sample(1:100,size = 96,replace = TRUE)),
         THUR = cumsum(sample(1:100,size = 96,replace = TRUE)),
         FRI = cumsum(sample(1:100,size = 96,replace = TRUE)),
         SAT = cumsum(sample(1:100,size = 96,replace = TRUE)),
         SUN = cumsum(sample(1:100,size = 96,replace = TRUE)))

mydf$AVG <- round(rowMeans(mydf[,2:8]),2)

ggplot(mydf, aes(x=reorder(value, MON), y = MON)) +
geom_line() +
geom_line(aes(x=reorder(value, TUE), y = TUE), colour = 'red')

然后我尝试创建一个折线图，我想为一周中的几天创建非常浅的颜色，然后为平均值创建一个非常强烈的颜色

不幸的是，当我运行代码时，我收到以下错误

geom_path：每组只包含一个观察。你需要调整群体美感吗？ geom_path：每组只包含一个观察。你需要调整群体审美吗？

任何人都可以提供帮助吗？

Answer 1

在此答案https://stackoverflow.com/questions/35586520/when-creating-a-multiple-line-plot-in-ggplot2-how-do-you-make-one-line-thicker

的帮助下

我得到了以下内容，它将x轴转为小时：

mydf0=melt(ungroup(mydf))
names(mydf0)[1]="Time"
mydf0$Time=as.factor(as.character(hour(ymd_hm(paste("2018-01-01",mydf0$Time,sep=" ")))))
mydf0$Time <- factor(mydf0$Time,levels=c(as.character(seq(12,23,1)),as.character(seq(0,11,1))))
levels(mydf0$Time)
mydf0$size <- rep(.5, nrow(mydf0))
mydf0$size[mydf0$variable=="AVG"] <- 2
ggplot(mydf0, aes(x=Time, y = value,col=variable,group=variable,size=size))+geom_line() +
  scale_size(range = c(0.5, 2), guide="none")

希望它有用

如果我们不围绕小时，x轴实际上不可见，而线条更平滑

    mydf0=melt(ungroup(mydf))
names(mydf0)[1]="Time"
mydf0$Time <- ordered(mydf0$Time,levels=mydf0$Time[1:96])
mydf0$size <- rep(.5, nrow(mydf0))
mydf0$size[mydf0$variable=="AVG"] <- 2
ggplot(mydf0, aes(x=Time, y = value,col=variable,group=variable,size=size))+geom_line() +
  scale_size(range = c(0.5, 2), guide="none")+ scale_x_discrete(breaks=as.character(seq(0,23,1)))

Answer 2

x轴的alpha格式以及每个变量值的# Add a new x variable (supposed to be an hour) mydf$hour <- as.POSIXct(ifelse(as.double(substr(mydf$value, 1, 2)) >= 12, paste("2018-01-30 ", mydf$value, ":00", sep = ""), paste("2018-01-31 ", mydf$value, ":00", sep = ""))) # change to long data format mydf_m <- gather(mydf, "day", "val", c(2:9)) # reorder variable values mydf_m$day <- factor(mydf_m$day, levels=c("MON", "TUE", "WED", "THUR", "FRI", "SAT", "SUN", "AVG")) library(scales) # for date_format in scale_x_datetime ggplot(mydf_m, aes(x = hour, y = val, color = day, alpha = day, size = day)) + theme_bw() + # geom_line() + scale_x_datetime(labels = date_format("%H:%M", tz = "CET")) + # x axis scale_alpha_manual(values = c("MON" = 0.3, "TUE" = 0.3, "WED" = 0.3, "THUR" = 0.3, "FRI" = 0.3, "SAT" = 0.3, "SUN" = 0.3, "AVG" = 0.8), guide = "none") + scale_size_manual(values = c("MON" = 1, "TUE" = 1, "WED" = 1, "THUR" = 1, "FRI" = 1, "SAT" = 1, "SUN" = 1, "AVG" = 3))级别的另一个建议：

CustomUserForm

ggplot2单个图表上的多行

2 个答案: