按年份过滤标绘点

Question

我在使用 ggplot2 创建的英国地图上将物种出现记录绘制为点。在我的 csv 中，有一个记录年份的列 - 如何添加过滤器以便只绘制来自特定 year/year 范围的记录而不是所有记录？代码在下面，对地图设计满意只想绘制一些记录！

library(ggplot2)
library("sf")
library(rnaturalearth)
library(rnaturalearthdata)
library(ggspatial)
book1points <- read.csv("removeddirectoryforprivacy.csv")
theme_set(theme_bw())
world <- ne_countries(scale = "medium", returnclass = "sf")
class(world)
ggplot(data = world) +
  geom_sf() +
  geom_point(data = book1points, aes(x = lon, y = lat), size = 0.4, shape = 22, fill = "darkred") + 
  xlab("Longitude") + ylab("Latitude") +
  ggtitle("Book1") +
  annotation_scale(location = "bl", width_hint = 0.3) +
  annotation_north_arrow(location = "bl", which_north = "true", 
                         pad_x = unit(0.22, "in"), pad_y = unit(0.2, "in"),
                         style = north_arrow_fancy_orienteering) +
  coord_sf(xlim=c(-11.5,3), ylim=c(49,61), expand = FALSE) +
  theme(panel.grid.major = element_line(color = gray(0.5), linetype = "dashed", size = 0.2), panel.background = element_rect(fill = "aliceblue"))

Answer 1

如@GregorThomas 所述，您想给 ggplot 一个子集。您可以对 geom_point.

中的数据使用 filter

library(tidyverse)
library(sf)
library(rnaturalearth)
library(rnaturalearthdata)
library(ggspatial)

ggplot(data = world) +
  geom_sf() +
  geom_point(
    data = book1points %>% dplyr::filter(year == 2021),
    aes(x = lon, y = lat),
    size = 0.4,
    shape = 22,
    fill = "darkred"
  ) +
  xlab("Longitude") + ylab("Latitude") +
  ggtitle("Book1") +
  annotation_scale(location = "bl", width_hint = 0.3) +
  annotation_north_arrow(
    location = "bl",
    which_north = "true",
    pad_x = unit(0.22, "in"),
    pad_y = unit(0.2, "in"),
    style = north_arrow_fancy_orienteering
  ) +
  coord_sf(xlim = c(-11.5, 3),
           ylim = c(49, 61),
           expand = FALSE) +
  theme(
    panel.grid.major = element_line(
      color = gray(0.5),
      linetype = "dashed",
      size = 0.2
    ),
    panel.background = element_rect(fill = "aliceblue")
  )

输出

或者如果你有多年，那么你可以使用：

data = book1points %>% dplyr::filter(year %in% 2020:2021)

或者如@GregorThomas 提供的那样，您也可以在该行中使用基数 R 而不是 dplyr。

data = subset(book1points, year == 2020)
data = subset(book1points, year %in% 2020:2021)

数据

book1points <- structure(list(
  lon = c(-2.1767,-0.44086,-2.791934,-1.253848,-0.253848),
  lat = c(54.236969, 53.144121, 52.386316, 52.932735,
        52.932735),
  year = c(2020, 2021, 2020, 2021, 2021)
),
class = "data.frame",
row.names = c(NA,-5L))

按年份过滤标绘点

Filter plotted points by year

dictionary

r

filter

ggplot2