- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我是初学者,所以如果我的问题太基本,我深表歉意。距离我输入第一个 ggplot2 命令已经过去了大约 4 天。我读过How can I apply a gradient fill to a geom_rect object in ggplot2?在发布之前,但这篇文章似乎专注于生成渐变矩形,我已经这样做了。
目标:我想强调哪些美国总统的失业率> 10000(单位并不重要,因为我的重点是绘制图表的能力。
presidential <- subset(presidential, start > economics$date[1])
ggplot(economics) +
geom_rect(
aes(xmin = start, xmax = end, fill = party),
ymin = -Inf, ymax = Inf, alpha = 0.2,
data = presidential
) +
geom_vline(
aes(xintercept = as.numeric(start)),
data = presidential,
colour = "grey50", alpha = 0.5
) +
geom_text(
aes(x = start, y = 2500, label = name),
data = presidential,
size = 3, vjust = 0, hjust = 0, nudge_x = 50, check_overlap = TRUE
) +
geom_line(aes(date, unemploy)) +
geom_rect(
aes(xmin = start, xmax = end),
ymin = 10000, ymax = Inf, alpha = 0.4, fill = "chartreuse",
data = presidential
) +
geom_text(
aes(x = as.Date("1993-01-20"), y = 12000, label = "High unemployment"),
size = 3, vjust = 0, hjust = 0, color = "forestgreen"
)+
scale_fill_manual(values = c("blue", "red"))
图形输出为:
正如我们所看到的,我能够为显示失业率 > 10000 的绿色矩形创建一个标签。但是,我对这种方法不满意,因为这只是一个快速修复(即我通过调整 x 使其工作, y、微移等参数)。如果轴的比例发生变化怎么办?文本将会扭曲或可能不可见。我有两个问题:
问题 1:我们是否可以通过编程方式标记绿色矩形,使得失业率 > 10000?我不太关心我们是否使用文本、标签或图例。我假设使用 geom_text() 需要快速修复(即大量运行和重新运行,以通过不断调整 x、y、vjust、hjust 和微调来确保文本正确显示),但是设置图例或标签可能是自动的。
问题2这是一个概念性问题——当我调用scale_fill_manual()
时,ggplot2如何知道我是否想要垂直矩形或水平矩形的红色和蓝色?我很好奇。为什么它不要求我也为水平和垂直矩形提供颜色?我是否已经使用 color =forestgreen 为水平矩形提供了恒定的颜色,因此它只需要剩余的垂直矩形对(即红色和蓝色)的颜色?
我是一个初学者,所以如果我的问题对你们中的一些人来说太基础了,我很抱歉。如果有任何帮助,我将不胜感激。
<小时/>更新:
这是数据的输出:
structure(list(name = c("Nixon", "Ford", "Carter", "Reagan",
"Bush", "Clinton", "Bush", "Obama"), start = structure(c(-346L,
1681L, 2576L, 4037L, 6959L, 8420L, 11342L, 14264L), class = "Date"),
end = structure(c(1681L, 2576L, 4037L, 6959L, 8420L, 11342L,
14264L, 17186L), class = "Date"), party = c("Republican",
"Republican", "Democratic", "Republican", "Republican", "Democratic",
"Republican", "Democratic")), .Names = c("name", "start",
"end", "party"), row.names = c(NA, -8L), class = c("tbl_df",
"tbl", "data.frame"))
经济数据可通过 ggplot2
包公开获取
head(economics)
# A tibble: 6 x 6
date pce pop psavert uempmed unemploy
<date> <dbl> <int> <dbl> <dbl> <int>
1 1967-07-01 507.4 198712 12.5 4.5 2944
2 1967-08-01 510.5 198911 12.5 4.7 2945
3 1967-09-01 516.3 199113 11.7 4.6 2958
4 1967-10-01 512.9 199311 12.5 4.9 3143
5 1967-11-01 518.1 199498 12.5 4.7 3066
6 1967-12-01 525.8 199657 12.1 4.8 3018
最佳答案
presidential <- subset(presidential, start > economics$date[1])
ggplot(economics) +
geom_rect(
aes(xmin = start, xmax = end, fill = party),
ymin = -Inf, ymax = Inf, alpha = 0.2,
data = presidential
) +
geom_vline(
aes(xintercept = as.numeric(start)),
data = presidential,
colour = "grey50", alpha = 0.5
) +
geom_text(
aes(x = start, y = 2500, label = name),
data = presidential,
size = 3, vjust = 0, hjust = 0, nudge_x = 50, check_overlap = TRUE
) +
geom_line(aes(date, unemploy)) +
geom_rect(
aes(xmin = start, xmax = end, fill = "chartreuse"),
ymin = 10000, ymax = Inf, alpha = 0.4,
data = presidential
) +
geom_text(
aes(x = as.Date("1993-01-20"), y = 12000, label = "High unemployment"),
size = 3, vjust = 0, hjust = 0, color = "forestgreen"
)+
scale_fill_manual(values = c("chartreuse", "red", "blue"), labels=c("High Unemployment","Democrat","Republican"))+labs(fill="")
就你的第二个问题而言,颜色是在垂直方向映射的,因为你的初始调用......
geom_rect(
aes(xmin = start, xmax = end, fill = party),
ymin = -Inf, ymax = Inf, alpha = 0.2,
data = presidential
)
...标识矩形在 start
日期的开始位置和在 end
日期的结束位置,但对于 y 轴,尺寸设置为 >Inf
因此颜色是垂直映射的。
关于r - 在 ggplot2 中标记 geom_rect(),我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/39177706/
我想绘制矩形,但我有一个离散值的 x 轴。如何将 xmin 和 xmax 值设置为从离散值之间的某个点开始? library(ggplot2) df <- data.frame(x = c("a","
我有一个数据框,其中包含一个仪器在连续时间段内在四个位置测量的值。我希望将夜间(下午 6 点到早上 6 点)设为灰色以帮助解释。下面的代码正确地描绘了这一点,除了我还想使用 facet_grid(..
我一直在查看第 5.10 节中的 geom_rect 示例 ggplot2 书,但不明白 aes 中 NULL 的用途 功能。例如,使用 mpg数据: g = ggplot(data=mpg, aes
我有一个数据框,我用它来创建一个分面为三个独立图的 ggplot 对象。 max_24h_lactate_cpet.long First_24h_Lactate_Max, Lactate_Above
我想用我的 ggplot 绘制矩形“阴影”。 ggplot 代码有效并提供如下所示的图像。我找资料here并为 x 和 y 值构建了一个数据框。 mydf<-data.frame(tiempo=df5
我正在使用 ggplot2 绘制挪威 map ,其中用红色矩形突出显示感兴趣的区域。如果我省略 geom_rect 或 coord_map, map 绘制速度会非常快(< 1 秒)。如果我同时使用两者
我想在时间尺度上叠加一个图。以下是我的数据: Flight_No Dest Date Time STD.60 STD.45 Date2 start
我想为两个 geom_rect 的重叠部分/颜色向 ggplot2 图例添加一个附加项。 代表: # library library(ggplot2) library(tidyverse) # mak
我有这个代码: library(ggplot2) ggplot(data = bayes, aes(x = Order, y = value, fill=key, color=key)) + ge
我想在 R 中创建一个类似于下图的图形,以显示某个人或公司相对于其同行的排名。分数始终在 1 到 100 之间。 虽然我可以接受任何 ggplot 解决方案,但在我看来最好的方法是使用 geom_re
我正在尝试在 R 中使用 plotly 创建一个带有矩形的交互式绘图。 我的主要想法正在发挥作用。但是,我坚持的是让每个矩形都有一个彩色轮廓(如数据的“填充”列中所描绘的那样),但是一个完全透明的区域
相同的标题,但完全改写了问题。 为什么 alpha 在第一个图中起作用,但在第二个图中不起作用?我很难理解为什么使用硬编码值时,矩形会绘制在正确的位置但不会变得透明,但在 data.frame 中时它
我是初学者,所以如果我的问题太基本,我深表歉意。距离我输入第一个 ggplot2 命令已经过去了大约 4 天。我读过How can I apply a gradient fill to a geom_
我正在尝试使用 ggplot2::geom_bar 绘制堆叠条形图根据分类变量使用背景阴影(使用 ggplot2::geom_rect() ),如下所示: shading <- data.frame(
我有一个条形图,它使用 x 轴的时间序列数据,其中每个条代表 7 天。 这是数据框的前几行: # A tibble: 40 x 5 # Groups: group [26] group
我正在尝试绘制一个 geom_rect()。为什么我收到 FUN(X[[i]], ...) 中的错误:未找到对象“Month”?如果我在我的控制台中运行 df$Month 对象就在那里: df$Mon
这是我的数据集示例: df <- data.frame(group = rep(c("group1","group2","group3", "group4", "group5", "group6"),
我想绘制一个 facet_grid对于用于分面的变量组合的不平衡观察,例如 dat dat group var x y 1 A a 1 0 2 A a 2 1 3
我正在使用 ggplot2 构建时间序列折线图,该图利用 geom_rect 对象来突出显示特定的时间序列事件。 出于纯粹的美学原因,我有兴趣将渐变应用于 geom_rect 对象,以便它随着 y 的
几天来,我一直致力于创建热图,但无法使网格线的最终格式正常工作。请参阅下面的代码和附图。我想要做的是使用 geom_tile() 沿着热图的图块对齐网格线,以便每个图块以框方式填充网格内部。我能够使用
我是一名优秀的程序员,十分优秀!