gpt4 book ai didi

r - ggplot根据月份的阴影背景

转载 作者:行者123 更新时间:2023-12-02 17:22:28 27 4
gpt4 key购买 nike

这段代码:

df <- data.frame(day <- 0:365, value = 1)
library(ggplot2)
ggplot(df, aes(day, value)) + geom_blank() + scale_x_continuous(breaks = seq(0, 365, 10)) + theme_bw()

产生这个图:

enter image description here

使用 R 代码,我想根据属于哪个月来对绘图的背景进行着色。我希望情节如下所示(情节背景经过 Photoshop 处理)。我对使用 lubridate 的解决方案特别感兴趣。

enter image description here

最佳答案

这是使用geom_raster解决方案的一部分。

library(lubridate)
library(ggplot2)

x <- seq(from = as.Date("2000/1/1"), to = as.Date("2000/12/31"), "day")
xy <- data.frame(datum = x, day = day(x), month = month(x), seq.day = 1:length(x),
month.ind = rep(rep(0:1, 6), times = rle(xy$month)$lengths))

ggplot(xy, aes(x = seq.day, y = 1, fill = as.factor(month.ind))) +
theme_bw() +
scale_fill_manual(values = c("black", "white")) +
scale_x_continuous(breaks = seq(0, 365, 10)) +
geom_raster(alpha = 0.3, show_guide = FALSE)

enter image description here

关于r - ggplot根据月份的阴影背景,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31510796/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com