ggplot and geom_sf and Error: length(rows) == 1 is not TRUE
ggplot and geom_sf and Error: length(rows) == 1 is not TRUE
我正在尝试使用 ggplot2 和新的（很棒的）简单要素映射包 geom_sf 将多个地理数据集绘制在一起。我对图例和错误代码 Error: length(rows) == 1 is not TRUE（似乎属于 ddply）感到困惑，当我尝试强制使用 行 的图例时会出现该错误代码类型特征显示为一条线。
这是我调用的生成下图的代码；一切都很好 除了 图例，其中 Line1 显示为 box/fill。
ggplot() +
geom_sf(data=sct, aes(fill=as.factor(sct$tc2)), color = "gray82") +
scale_fill_manual(values=c("white","goldenrod1","dodgerblue"),
labels = c("Omitted", "Control", "Treated"),
name = "Legend") +
geom_sf(data=lines1925All, aes(color="A"), linetype="dashed") +
scale_color_manual(values = c("A" = "olivedrab"),
labels = c("Line1"),
name = "what line?") +
theme_minimal() +
coord_sf(xlim=mapRange2[c(1:2)], ylim=mapRange2[c(3:4)])
这是图表：
现在，如果我尝试使用 show.legend（= TRUE 或 = "line"）强制图例看起来像一条线，则在下面的
geom_sf(data=lines1925All, aes(color="A"), linetype="dashed", show.legend = "line") +
我收到错误 Error: length(rows) == 1 is not TRUE。如果我单独绘制 geom_sf 的任一实例，我不会出错，并且可以通过使用 show.legend = "line".
使图例看起来正确
注意：我没有包括一个最小的可复制示例，因为我无法用易于共享的数据复制它；参见 。我已经尝试了几天找到答案，但没有运气。
我现在没有看到解决方案，但至少这是一个最小的可重现示例。
也许这是一个错误，那么最好的选择是 post github.
上的一个问题
library(sf)
#> Linking to GEOS 3.5.1, GDAL 2.1.3, proj.4 4.9.2, lwgeom 2.3.2 r15302
library(ggplot2)
# Create a ploygon object (with 3 polygons)
poly1 <- cbind(lon=c(5, 6, 7, 5),
lat=c(52, 53, 51, 52))
poly <- st_sf(st_sfc(list(st_polygon(list(poly1)),
st_polygon(list(poly1 - 1)),
st_polygon(list(poly1 + 1)))))
poly$treatment <- factor(c("Omitted", "Control", "Treated"))
# create two line objects
line1 <- st_sf(st_sfc(list(st_linestring(cbind(lon = c(5.5, 4.5), lat = c(53.5, 54.5))))))
line2 <- st_sf(st_sfc(list(st_linestring(cbind(lon = c(5, 7.5), lat = c(53, 52))))))
这个有效：
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line")
这也行
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line") +
geom_sf(data = poly)
这可行，但我们希望颜色图例显示一条线
ggplot() +
geom_sf(data= line1, aes(color="A")) +
geom_sf(data = poly, aes(fill = treatment))
这行不通
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line") +
geom_sf(data = poly, aes(fill = treatment))
#> Error: length(rows) == 1 n'est pas TRUE
Nb : color = "A" 在美学上的奇怪用法是因为
对于空间数据，我们通常有不同的空间数据集
设定一种审美，但我们也想要一个传奇（例如想想：蓝色的河流
和红色道路）。
例如：
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line") +
geom_sf(data= line2, aes(color="B"), show.legend = "line") +
geom_sf(data = poly) +
scale_color_manual(values = c("A" = "red", "B" = "blue"),
labels = c("Roads", "Rivers"),
name = "Linear \ncomponents")
由 reprex package (v0.2.0) 创建于 2018-02-20。
这是由于 ggplot2 中缺失的美学处理，自开发以来刚刚解决。版本包版本 2.2.1.9000: https://github.com/tidyverse/ggplot2/commit/4635bbb1e50d94e8d2017f084f75e2f709daeb18
我正在尝试使用 ggplot2 和新的（很棒的）简单要素映射包 geom_sf 将多个地理数据集绘制在一起。我对图例和错误代码 Error: length(rows) == 1 is not TRUE（似乎属于 ddply）感到困惑，当我尝试强制使用 行 的图例时会出现该错误代码类型特征显示为一条线。
这是我调用的生成下图的代码；一切都很好 除了 图例，其中 Line1 显示为 box/fill。
ggplot() +
geom_sf(data=sct, aes(fill=as.factor(sct$tc2)), color = "gray82") +
scale_fill_manual(values=c("white","goldenrod1","dodgerblue"),
labels = c("Omitted", "Control", "Treated"),
name = "Legend") +
geom_sf(data=lines1925All, aes(color="A"), linetype="dashed") +
scale_color_manual(values = c("A" = "olivedrab"),
labels = c("Line1"),
name = "what line?") +
theme_minimal() +
coord_sf(xlim=mapRange2[c(1:2)], ylim=mapRange2[c(3:4)])
这是图表：
现在，如果我尝试使用 show.legend（= TRUE 或 = "line"）强制图例看起来像一条线，则在下面的
geom_sf(data=lines1925All, aes(color="A"), linetype="dashed", show.legend = "line") +
我收到错误 Error: length(rows) == 1 is not TRUE。如果我单独绘制 geom_sf 的任一实例，我不会出错，并且可以通过使用 show.legend = "line".
注意：我没有包括一个最小的可复制示例，因为我无法用易于共享的数据复制它；参见
我现在没有看到解决方案，但至少这是一个最小的可重现示例。
也许这是一个错误，那么最好的选择是 post github.
library(sf)
#> Linking to GEOS 3.5.1, GDAL 2.1.3, proj.4 4.9.2, lwgeom 2.3.2 r15302
library(ggplot2)
# Create a ploygon object (with 3 polygons)
poly1 <- cbind(lon=c(5, 6, 7, 5),
lat=c(52, 53, 51, 52))
poly <- st_sf(st_sfc(list(st_polygon(list(poly1)),
st_polygon(list(poly1 - 1)),
st_polygon(list(poly1 + 1)))))
poly$treatment <- factor(c("Omitted", "Control", "Treated"))
# create two line objects
line1 <- st_sf(st_sfc(list(st_linestring(cbind(lon = c(5.5, 4.5), lat = c(53.5, 54.5))))))
line2 <- st_sf(st_sfc(list(st_linestring(cbind(lon = c(5, 7.5), lat = c(53, 52))))))
这个有效：
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line")
这也行
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line") +
geom_sf(data = poly)
这可行，但我们希望颜色图例显示一条线
ggplot() +
geom_sf(data= line1, aes(color="A")) +
geom_sf(data = poly, aes(fill = treatment))
这行不通
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line") +
geom_sf(data = poly, aes(fill = treatment))
#> Error: length(rows) == 1 n'est pas TRUE
Nb : color = "A" 在美学上的奇怪用法是因为
对于空间数据，我们通常有不同的空间数据集
设定一种审美，但我们也想要一个传奇（例如想想：蓝色的河流
和红色道路）。
例如：
ggplot() +
geom_sf(data= line1, aes(color="A"), show.legend = "line") +
geom_sf(data= line2, aes(color="B"), show.legend = "line") +
geom_sf(data = poly) +
scale_color_manual(values = c("A" = "red", "B" = "blue"),
labels = c("Roads", "Rivers"),
name = "Linear \ncomponents")
由 reprex package (v0.2.0) 创建于 2018-02-20。
这是由于 ggplot2 中缺失的美学处理，自开发以来刚刚解决。版本包版本 2.2.1.9000: https://github.com/tidyverse/ggplot2/commit/4635bbb1e50d94e8d2017f084f75e2f709daeb18