r - 如何以图例结尾创建单个几何点的几何线图-6ren

r - 如何以图例结尾创建单个几何点的几何线图

转载作者：行者123 更新时间：2023-12-04 13:30:22

我想重新创建在《纽约时报》上找到的剧情:

dput数据为:

structure(list(`Gss year for this respondent` = c(1977, 1977, 
                                                  1977, 1978, 1978, 1978, 1980, 1980, 1980, 1982, 1982, 1982, 1983, 
                                                  1983, 1983, 1984, 1984, 1984, 1985, 1985, 1985, 1987, 1987, 1987, 
                                                  1988, 1988, 1988, 1989, 1989, 1989, 1990, 1990, 1990, 1991, 1991, 
                                                  1991, 1993, 1993, 1993, 1994, 1994, 1994, 1996, 1996, 1996, 1998, 
                                                  1998, 1998, 2000, 2000, 2000, 2002, 2002, 2002, 2004, 2004, 2004, 
                                                  2006, 2006, 2006, 2008, 2008, 2008, 2010, 2010, 2010, 2012, 2012, 
                                                  2012, 2014, 2014, 2014, 2016, 2016, 2016, 2018, 2018, 2018), 
               `Political party affiliation` = c("Democrat", "Independent", 
                                                 "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                 "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                 "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                 "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                 "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                 "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                 "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                 "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                 "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                 "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                 "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                 "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                 "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                 "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                 "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                 "Republican"), value = c("Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", "Yes", 
                                                                                                             "Yes", "Yes", "Yes", "Yes", "Yes"), n = c(226L, 191L, 130L, 
                                                                                                                                                       188L, 194L, 109L, 210L, 235L, 127L, 281L, 264L, 127L, 174L, 
                                                                                                                                                       200L, 139L, 176L, 220L, 140L, 200L, 192L, 147L, 285L, 227L, 
                                                                                                                                                       161L, 142L, 113L, 80L, 159L, 122L, 113L, 124L, 136L, 115L, 
                                                                                                                                                       142L, 127L, 129L, 180L, 161L, 112L, 351L, 311L, 207L, 306L, 
                                                                                                                                                       299L, 202L, 283L, 280L, 141L, 246L, 306L, 128L, 144L, 160L, 
                                                                                                                                                       77L, 138L, 121L, 80L, 307L, 290L, 156L, 214L, 198L, 117L, 
                                                                                                                                                       199L, 227L, 91L, 245L, 209L, 80L, 306L, 310L, 97L, 342L, 
                                                                                                                                                       337L, 127L, 300L, 333L, 96L), Percent = c(0.336, 0.38, 0.392, 
                                                                                                                                                                                                 0.311, 0.352, 0.306, 0.375, 0.419, 0.383, 0.327, 0.426, 0.363, 
                                                                                                                                                                                                 0.283, 0.37, 0.356, 0.324, 0.421, 0.381, 0.337, 0.416, 0.325, 
                                                                                                                                                                                                 0.352, 0.41, 0.385, 0.398, 0.334, 0.292, 0.407, 0.425, 0.333, 
                                                                                                                                                                                                 0.416, 0.455, 0.377, 0.409, 0.398, 0.419, 0.483, 0.445, 0.354, 
                                                                                                                                                                                                 0.485, 0.471, 0.375, 0.479, 0.421, 0.378, 0.427, 0.409, 0.295, 
                                                                                                                                                                                                 0.403, 0.407, 0.286, 0.462, 0.475, 0.307, 0.466, 0.382, 0.307, 
                                                                                                                                                                                                 0.488, 0.374, 0.293, 0.463, 0.396, 0.343, 0.49, 0.433, 0.312, 
                                                                                                                                                                                                 0.538, 0.421, 0.274, 0.536, 0.44, 0.271, 0.531, 0.461, 0.298, 
                                                                                                                                                                                                 0.607, 0.513, 0.283)), class = c("grouped_df", "tbl_df", 
                                                                                                                                                                                                                                  "tbl", "data.frame"), row.names = c(NA, -78L), groups = structure(list(
                                                                                                                                                                                                                                    `Gss year for this respondent` = c(1977, 1977, 1977, 1978, 
                                                                                                                                                                                                                                                                       1978, 1978, 1980, 1980, 1980, 1982, 1982, 1982, 1983, 1983, 
                                                                                                                                                                                                                                                                       1983, 1984, 1984, 1984, 1985, 1985, 1985, 1987, 1987, 1987, 
                                                                                                                                                                                                                                                                       1988, 1988, 1988, 1989, 1989, 1989, 1990, 1990, 1990, 1991, 
                                                                                                                                                                                                                                                                       1991, 1991, 1993, 1993, 1993, 1994, 1994, 1994, 1996, 1996, 
                                                                                                                                                                                                                                                                       1996, 1998, 1998, 1998, 2000, 2000, 2000, 2002, 2002, 2002, 
                                                                                                                                                                                                                                                                       2004, 2004, 2004, 2006, 2006, 2006, 2008, 2008, 2008, 2010, 
                                                                                                                                                                                                                                                                       2010, 2010, 2012, 2012, 2012, 2014, 2014, 2014, 2016, 2016, 
                                                                                                                                                                                                                                                                       2016, 2018, 2018, 2018), `Political party affiliation` = c("Democrat", 
                                                                                                                                                                                                                                                                                                                                  "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                                                                                                                                                                                                                                                                                                  "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                                                                                                                                                                                                                                                                                                  "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                                                                                                                                                                                                                                                                                                  "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                                                                                                                                                                                                                                                                                                  "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                                                                                                                                                                                                                                                                                                  "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                                                                                                                                                                                                                                                                                                  "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                                                                                                                                                                                                                                                                                                  "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                                                                                                                                                                                                                                                                                                  "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                                                                                                                                                                                                                                                                                                  "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                                                                                                                                                                                                                                                                                                  "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                                                                                                                                                                                                                                                                                                  "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                                                                                                                                                                                                                                                                                                  "Independent", "Republican", "Democrat", "Independent", "Republican", 
                                                                                                                                                                                                                                                                                                                                  "Democrat", "Independent", "Republican", "Democrat", "Independent", 
                                                                                                                                                                                                                                                                                                                                  "Republican", "Democrat", "Independent", "Republican", "Democrat", 
                                                                                                                                                                                                                                                                                                                                  "Independent", "Republican"), .rows = list(1L, 2L, 3L, 4L, 
                                                                                                                                                                                                                                                                                                                                                                             5L, 6L, 7L, 8L, 9L, 10L, 11L, 12L, 13L, 14L, 15L, 16L, 
                                                                                                                                                                                                                                                                                                                                                                             17L, 18L, 19L, 20L, 21L, 22L, 23L, 24L, 25L, 26L, 27L, 
                                                                                                                                                                                                                                                                                                                                                                             28L, 29L, 30L, 31L, 32L, 33L, 34L, 35L, 36L, 37L, 38L, 
                                                                                                                                                                                                                                                                                                                                                                             39L, 40L, 41L, 42L, 43L, 44L, 45L, 46L, 47L, 48L, 49L, 
                                                                                                                                                                                                                                                                                                                                                                             50L, 51L, 52L, 53L, 54L, 55L, 56L, 57L, 58L, 59L, 60L, 
                                                                                                                                                                                                                                                                                                                                                                             61L, 62L, 63L, 64L, 65L, 66L, 67L, 68L, 69L, 70L, 71L, 
                                                                                                                                                                                                                                                                                                                                                                             72L, 73L, 74L, 75L, 76L, 77L, 78L)), row.names = c(NA, 
                                                                                                                                                                                                                                                                                                                                                                                                                                -78L), class = c("tbl_df", "tbl", "data.frame"), .drop = TRUE))

我最接近的是:

GSStimeany6 %>%
  ggplot(aes(x = `Gss year for this respondent`,
             y = Percent,
             fill = `Political party affiliation`)) +
  geom_line(aes(color = `Political party affiliation`),
            size = 1) +
  geom_point() +
  ylab("")+
  ylim(0,80)

我如何才能使geom点仅在最后一点上工作(并且颜色与geom线相同)，并在该点旁边显示图例(所以民主党点的末尾将有一个蓝点，民主党文字出现在旁边)？

最佳答案

以下是对@ dc37答案的一些更新，这些更新使OP更加接近所需的绘图。需要明确的是，@ dc37的答案解决了主要问题:如何仅绘制系列中的最后一个点。所有这些都太多了，无法在@ dc37的答案中添加注释，因此，我将其发布为单独的解决方案-尽管它实际上是@ dc37的答案的扩展，而不是一个单独的替代方法。

更新

固定x轴范围，以便在轴停止

后出现注释

从注释

中删除颜色

消除情节

上x轴线和y = 0之间的空间

在x轴刻度线周围创建空间(轴线和刻度文本之间的空间)

显示的主要y轴网格线

使x-和y-滴答声与原始匹配

ggplot(df, aes(x = `Gss year for this respondent`, y = Percent*100, 
           color = `Political party affiliation`)) +
geom_line(show.legend = FALSE, size = 1) +
geom_point(data = point_df, aes(x =`Gss year for this respondent`), 
           show.legend = FALSE, size = 2) +
scale_x_continuous(breaks = seq(1980, 2015, by = 5)) +
scale_y_continuous(limits = c(0, 80), 
                   breaks = seq(0, 80, by = 20),
                   expand = c(0, 0)) +
scale_color_manual(values = c("deepskyblue1","gray80","firebrick3")) +
geom_text(data = point_df,
          aes(x = 2019, y = Percent*100, 
              label = `Political party affiliation`), 
          color = "black",
          show.legend = FALSE, 
          hjust = -0.1) +
coord_cartesian(xlim = c(1978, 2016), clip = 'off') +
theme(plot.margin = unit(c(1,7,1,1), "lines"),
      panel.grid.major.y = element_line(color = "gray90"),
      axis.line.y = element_blank(),
      axis.ticks.length.x = unit(.3, units = "cm"),
      axis.ticks.x = element_line(linetype = 2)) +
labs(y = "", x = "")

重要
由OP的数据生成的图形(复制到OP的代码中以及该答案和@ dc37的答案)看起来与原始屏幕截图略有不同。 (看看线条如何以相同的方式彼此不重叠。)我没有研究这个-这里的更新集中在化妆品上。

关于r - 如何以图例结尾创建单个几何点的几何线图，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/59461805/

文章推荐： list - 浏览 Haskell 中的列表拆分功能

文章推荐： c# - 如何初始化一个接口(interface)？

文章推荐： python - numpy数组中的like语句时如何编写案例

MSSQL监控数据库的DDL操作(创建，修改，删除存储过程，创建，修改，删除表等)
前言：有时候，一个数据库有多个帐号，包括数据库管理员，开发人员，运维支撑人员等，可能有很多帐号都有比较大的权限，例如DDL操作权限(创建，修改，删除存储过程，创建，修改，删除表等），账户多了，管理
javascript - 使用 Storybook 创建 React App 创建 webpack 问题
所以我用 Create React App 创建并设置了一个大型 React 应用程序。最近我们开始使用 Storybook 来处理和创建组件。它很棒。但是，当我们尝试运行或构建应用程序时，我们不断遇
javascript - 创建 Angular Directive(指令)以重用代码 - 创建 html 时解析错误
遵循我正在创建的控件的代码片段。这个控件用在不同的地方，变量也不同。我正在尝试编写指令来清理代码，但在 {{}} 附近插入值时出现解析错误。刚接触 Angular ，无法确定我错过了什么。请帮忙。
java - 创建 JAX-RS 提供程序以从 InputStream 创建 Java Image
我正在尝试创建一个 image/jpeg jax-rs 提供程序类，它为我的基于 post rest 的 Web 服务创建一个图像。我无法制定请求来测试以下内容，最简单的测试方法是什么？ @POST
c - 当我使用 FILE 创建 txt 文件时，Dev C++ 创建 test.txt
我一直在 Windows 10 的模拟器中练习 c。后来我改用dev C++ IDE。当我在 C 中使用 FILE 时。创建的文件的名称为 test.txt ，而我给出了其他名称。请帮助解决它。下面
ios - 为什么我们不遵循使用 xib 创建 customTableViewCell 的相同过程，就像使用 xib 创建 customView 一样？
当我们创建自定义 View 时，我们将 View 文件的所有者设置为自定义类，并使用 initWithFrame 或 initWithCode 对其进行实例化。当我们创建 customUITable
创建 Pthreads
我正在尝试为函数 * Producer 创建一个线程，但用于创建线程的行显示错误。我为这句话加了星标，但我无法弄清楚它出了什么问题...... #include #include #include
创建、调用JavaScript对象的方法集锦
今天在做项目时，遇到了需要创建JavaScript对象的情况。所以Bing了一篇老外写的关于3种创建JavaScript对象的文章，看后跟着打了一遍代码。感觉方法挺好的，在这里与大家分享一下。 &
python - 创建 StringToSign
我正在阅读将查询字符串传递给 Amazon 的 S3 以进行身份验证的文档，但似乎无法理解 StringToSign 的创建和使用方式。我正在寻找一个具体示例来说明 (1) 如何构造 String
c# - 创建、不等待和确保任务完成的正确方法
前言:我对 C# 中任务的底层实现不太了解，只了解它们的用法。为我在下面屠宰的任何东西道歉: 对于“我怎样才能开始一项任务但不等待它？”这个问题，我找不到一个好的答案。在 C# 中。更具体地说，即使任
linq - 创建 ILookups
我有一个由一些复杂的表达式生成的 ILookup。假设这是按姓氏查找人。 (在我们简单的世界模型中，姓氏在家庭中是唯一的) ILookup families; 现在我有两个对如何构建感兴趣的查询。首
WIX bundle 创建
我试图创建一个 MSI，其中包含和 exe。在 WIX 中使用了捆绑选项。这样做时出错。有人可以帮我解决这个问题。下面是代码: 错误 error LGH
Yii 创建、更新具有不同字段的表单
在 Yii 中，Create 和 Update 通常使用相同的形式。因此，如果我在创建期间有电子邮件、密码、...other_fields...等字段，但我不想在更新期间专门显示电子邮件和密码字段，但
qt - 创建 QModelIndex
上周我一直在努力创建一个给定一行和一列的 QModelIndex。或者，我会满足于在已经存在的 QModelIndex 中更改 row() 的值。任何帮助，将不胜感激。编辑: QModelInd
C: 创建、传递和访问指向常量字符串的常量指针数组
出于某种原因，这不起作用: const char * str_reset_command = "\r\nReset"; const char * str_config_command = "\r\nC
r - 创建 "other"字段
现在，我有以下由 original.df %.% group_by(Category) %.% tally() %.% arrange(desc(n)) 创建的 data.frame。 DF 5),
vim - 创建〜/.vimrc后错误打开文件
在今天之前，我使用/etc/vim/vimrc来配置我的vim设置。今天，我想到了创建.vimrc文件。所以，我用 touch .vimrc cat /etc/vim/vimrc > .vimrc 所
iPhone:创建 MKAnnotation
我可以创建一个 MKAnnotation，还是只读的？我有坐标，但我发现使用 setCooperative 手动创建 MKAnnotation 并不容易。想法？最佳答案 MKAnnotation
iphone - 创建 NSDictionary
在以下代码中，第一个日志语句按预期显示小数，但第二个日志语句记录 NULL。我做错了什么？ NSDictionary *entry = [[NSDictionary alloc] initWithOb
php - 创建/添加多维数组值时的未定义偏移
我正在使用与此类似的代码动态添加到数组； $arrayF[$f+1][$y][$x+1] = $value+1; 但是我在错误报告中收到了这个: undefined offset :1 问题:尝试创

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

r - 如何以图例结尾创建单个几何点的几何线图