将多个阴影/矩形添加到ggplot2图形 [英] Adding multiple shadows/rectangles to ggplot2 graph
问题描述
我试图在ggplot2图上添加多个阴影/矩形。在这个可重复的例子中，我只添加了3个，但是我可能需要使用完整的数据添加到100个。
这是我原始数据的一个子集 - 在一个名为 temp 的数据框中 - dput 位于问题的底部：
季节层组值
NA NA NA NA< NA> NA
99 1948 2赢得20
101 1948 2损失17
NA.1 NA NA NA< NA> NA
NA.2 NA NA NA< NA> NA
104 1951 2赢得21
1951 2损失18
107 1952 2赢得23
109 1952 2损失18 $ b $ 110 110 1953 2赢得25
112 1953 2损失18
113 1954 2赢得26
115 1954 2损失19
116 1955 2赢得26
118 1955 2损失19
119 1956 2赢得26
121 1956 2损失20
NA.3不适用NA< NA> NA
123 1958 1赢得27
125 1958 1损失20
126 1959 1赢得27
128 1959 1损失21
129 1960 1赢得28
131 1960 1损失21
132 1961 1赢得30 $ b $ 134 13461 1损失21
135 1962 1赢得30
137 1962 1损失23
138 1963 1赢得31
140 1963 1损失23
141 1964 1赢得32
143 1964 1损失23
144 1965 1赢得34
146 1965 1亏损23
不适用.4 NA NA NA< NA> NA
我可以制作像这样的ggplot：
p < - ggplot（temp，aes（Season，value，color = group））+ geom_point（size = 4，shape = 19）+
scale_color_manual = c（red，gray55））
p
现在，我想添加阴影。每个阴影将以Season开始，季节开始在季节列中进行日期运行，并以季节列中日期运行中的最后一个日期/季节结束。最后，每个阴影应该由'层'变量着色。绿色代表'tier == 2'，蓝色代表'tier == 1'。
我已经使用了 rle 函数加上一些额外的脚本来提取Season变量中的NAs运行结束后的第一个观察结果，以及在运行NAs中的第一个NA之前获得观察结果。然后我分别加上和减去0.5，这给了我另一个像这样的数据框（tempindex）：
＃xmin xmax ymin ymax
＃5 1947.5 1948.5 -Inf Inf
＃6 1950.5 1956.5 -Inf Inf
＃7 1957.5 1965.5 -Inf Inf
我可以像这样手动添加阴影：
t2.rect1 < - data.frame（xmin = 1947.5，xmax = 1948.5，ymin = -Inf，ymax = Inf）
t2.rect2 < - data.frame（xmin = 1950.5，xmax = 1956.5，ymin = -Inf，ymax = Inf）
t1.rect1 < - data.frame（xmin = 1957.5，xmax = 1965.5，ymin = -Inf，ymax = Inf）
p +
geom_rect（data = t2.rect1，aes（xmin = xmin，xmax = xmax，ymin = ymin，ymax = ymax），fill =green，alpha = 0.1，inherit.aes = FALSE）+
geom_rect（data = t2。 rect2，aes（xmin = xmin，xmax = xmax，ymin = ymin，ymax = ymax），fill =green，alpha = 0.1，inherit.aes = FALSE）+
geom_rect（data = t1.rect1， aes（xmin = xmin，xmax = xmax，ymin = ymin，ymax = ymax），fill =blue，alpha = 0.1，inherit.aes = FALSE）
给出所需的输出：
然而，我显然不希望手动写出这一百次当我有很多阴影/矩形应用时的实例。我期待看看我能否以自动化的方式做到这一点。我尝试了一个 for 循环（没有尝试逐层调整颜色），但却失败了......
grect< -vector（list，nrow（indextemp））#vector for stored geom_rects
for（i in 1：nrow（indextemp））{
grect [[i]] < - geom_rect（data = temp [i]，aes（xmin = xmin，xmax = xmax，ymin = ymin，ymax = ymax），alpha = 0.1，inherit.aes = FALSE）
}
这显然不是起步者。我怀疑是否有人有任何想法？对于临时数据框，
dput ：
结构（列表（季节= c（NA，1948L，1948L，NA，NA，1951L，1951L，
1952L，1952L，1953L，1953L，1954L ，1954L，1955L，1955L，1956L，
1956L，NA，1958L，1958L，1959L，1959L，1960L，1960L，1961L，1961L，
1962L，1962L，1963L，1963L，1964L，1964L，1965L 1L，2L，2L，2L，2L，2L，2L，
2L，2L，2L，2L，2L，2L，2L，2L， 2L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，
1L，1L，1L，1L，1L，1L，1L， ，
1L，3L，NA，1L，3L，1L，3L，1L，3L，1L，3L，1L，3L，1L，
3L，NA，1L，3L，1L，3L ，1L，3L，1L，3L，1L，3L，1L，3L，1L，
3L，1L，3L，NA），.Label = c（Wins，Draws，Losses ），
值= c（NA，20L，17L，NA，NA，21L，18L，23L，18L，25L，
18L，26L，19L，26L，19L，26L ，20L，NA，27L，20L，27L，21L，
28L，21L，30L，21L，30L，23L，31 L，23L，32L，23L，34L，23L，
NA）），.Names = c（Season，tier，group，value），row.names = c（NA ，
99，101，NA.1，NA.2，104，106，107，109，110，
112113115116118119121NA.3123
125126 128，129，131，132，134，135，137，
138，140，141，143，144 ，146，NA.4），class =data.frame）
dput 用于tempindex数据框：
structure（list（xmin = c （1948.5，
1956.5,1965.5），ymin = c（-Inf，-Inf，-Inf），ymax = c（Inf，Inf，
Inf） ），.Names = c（xmin，xmax，ymin，ymax），row.names = 5：7，class =data.frame）
使用适当的映射，最好只使用一个图层，
tempindex< - transform（tempindex，
id = 1：3，
tier = c（1,1,2））
ggplot（temp，aes（Season，value，color = group））+
geom_rect（data = tempindex，inherit。 aes = FALSE，
aes（xmin = xmin，xmax = xmax，ymin = ymin，ymax = ymax，
group = id，fill = factor（tier）），alpha = 0.2）+
geom_point（size = 4，shape = 19）+
scale_color_manual（values = c（red，gray55））+
scale_fill_manual（values = c（green，blue）） ）+
guides（fill =none）
I am trying to add multiple shadows/rectangles over a ggplot2 graph. In this reproducible example, I am only adding 3, but I may need to add up to a hundred using the full data.
Here is a subset of my raw data - in a dataframe called temp - the dput is at the bottom of the question:
Season tier group value
NA NA NA <NA> NA
99 1948 2 Wins 20
101 1948 2 Losses 17
NA.1 NA NA <NA> NA
NA.2 NA NA <NA> NA
104 1951 2 Wins 21
106 1951 2 Losses 18
107 1952 2 Wins 23
109 1952 2 Losses 18
110 1953 2 Wins 25
112 1953 2 Losses 18
113 1954 2 Wins 26
115 1954 2 Losses 19
116 1955 2 Wins 26
118 1955 2 Losses 19
119 1956 2 Wins 26
121 1956 2 Losses 20
NA.3 NA NA <NA> NA
123 1958 1 Wins 27
125 1958 1 Losses 20
126 1959 1 Wins 27
128 1959 1 Losses 21
129 1960 1 Wins 28
131 1960 1 Losses 21
132 1961 1 Wins 30
134 1961 1 Losses 21
135 1962 1 Wins 30
137 1962 1 Losses 23
138 1963 1 Wins 31
140 1963 1 Losses 23
141 1964 1 Wins 32
143 1964 1 Losses 23
144 1965 1 Wins 34
146 1965 1 Losses 23
NA.4 NA NA <NA> NA
I can make a ggplot like this:
p <- ggplot(temp, aes(Season,value, color=group)) + geom_point(size=4, shape=19) +
scale_color_manual(values=c("red", "gray55"))
p
Now, I want to add shadows. Each shadow will begin with the Season that begins a run of dates in the Season column and will end with the date/Season that is the last in a run of dates in the Season column. Finally, each shadow should be colored by the 'tier' variable. Green for 'tier==2' and blue for 'tier==1'.
I have used the rle function plus some extra script to extract the first observation after the end of a run of NAs in the Season variable, as well as to get the observation before the first NA in a run of NAs. I then just add and minus 0.5 respectively, which gives me another dataframe (tempindex) like this:
# xmin xmax ymin ymax
#5 1947.5 1948.5 -Inf Inf
#6 1950.5 1956.5 -Inf Inf
#7 1957.5 1965.5 -Inf Inf
I could add the shadows manually like this:
t2.rect1 <- data.frame (xmin=1947.5, xmax=1948.5, ymin=-Inf, ymax=Inf)
t2.rect2 <- data.frame (xmin=1950.5, xmax=1956.5, ymin=-Inf, ymax=Inf)
t1.rect1 <- data.frame (xmin=1957.5, xmax=1965.5, ymin=-Inf, ymax=Inf)
p +
geom_rect(data=t2.rect1, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax), fill="green", alpha=0.1, inherit.aes = FALSE) +
geom_rect(data=t2.rect2, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax), fill="green", alpha=0.1, inherit.aes = FALSE) +
geom_rect(data=t1.rect1, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax), fill="blue", alpha=0.1, inherit.aes = FALSE)
which gives the desired output:
However, I obviously don't want to be manually writing out this a hundred times for instances when I have lots of shadows/rectangles to apply. I am looking to see if I can do this in an automated fashion. I tried a for loop (without trying to adjust color by tier) very unsuccessfully...
grect <-vector("list", nrow(indextemp)) #vector for storing geom_rects
for (i in 1:nrow(indextemp)){
grect[[i]] <- geom_rect(data=temp[i], aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax), alpha=0.1, inherit.aes = FALSE)
}
This is obviously a non-starter. I wonder if anybody has any ideas?
dput for temp dataframe:
structure(list(Season = c(NA, 1948L, 1948L, NA, NA, 1951L, 1951L,
1952L, 1952L, 1953L, 1953L, 1954L, 1954L, 1955L, 1955L, 1956L,
1956L, NA, 1958L, 1958L, 1959L, 1959L, 1960L, 1960L, 1961L, 1961L,
1962L, 1962L, 1963L, 1963L, 1964L, 1964L, 1965L, 1965L, NA),
tier = c(NA, 2L, 2L, NA, NA, 2L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 2L, NA, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, NA), group = structure(c(NA,
1L, 3L, NA, NA, 1L, 3L, 1L, 3L, 1L, 3L, 1L, 3L, 1L, 3L, 1L,
3L, NA, 1L, 3L, 1L, 3L, 1L, 3L, 1L, 3L, 1L, 3L, 1L, 3L, 1L,
3L, 1L, 3L, NA), .Label = c("Wins", "Draws", "Losses"), class = "factor"),
value = c(NA, 20L, 17L, NA, NA, 21L, 18L, 23L, 18L, 25L,
18L, 26L, 19L, 26L, 19L, 26L, 20L, NA, 27L, 20L, 27L, 21L,
28L, 21L, 30L, 21L, 30L, 23L, 31L, 23L, 32L, 23L, 34L, 23L,
NA)), .Names = c("Season", "tier", "group", "value"), row.names = c("NA",
"99", "101", "NA.1", "NA.2", "104", "106", "107", "109", "110",
"112", "113", "115", "116", "118", "119", "121", "NA.3", "123",
"125", "126", "128", "129", "131", "132", "134", "135", "137",
"138", "140", "141", "143", "144", "146", "NA.4"), class = "data.frame")
dput for tempindex dataframe:
structure(list(xmin = c(1947.5, 1950.5, 1957.5), xmax = c(1948.5,
1956.5, 1965.5), ymin = c(-Inf, -Inf, -Inf), ymax = c(Inf, Inf,
Inf)), .Names = c("xmin", "xmax", "ymin", "ymax"), row.names = 5:7, class = "data.frame")
it's better to use only one layer, with suitable mapping,
tempindex <- transform(tempindex,
id = 1:3,
tier = c(1,1,2))
ggplot(temp, aes(Season,value, color=group)) +
geom_rect(data=tempindex, inherit.aes=FALSE,
aes(xmin=xmin,xmax=xmax,ymin=ymin,ymax=ymax,
group=id, fill = factor(tier)), alpha=0.2)+
geom_point(size=4, shape=19) +
scale_color_manual(values=c("red", "gray55"))+
scale_fill_manual(values=c("green", "blue")) +
guides(fill="none")
这篇关于将多个阴影/矩形添加到ggplot2图形的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
