7

我正在使用以下代码制作与外部特征（总）成比例点的地图，但我想更改标记的宽度。

p <- ggplot()
p <- p + geom_polygon( data=all_states, aes(x=LONG*-1, y=LAT, group = ID),colour="black",              fill="white" )
p <- p + geom_point( data=mydata, aes(x=long*-1, y=lat, size = Total),color="mediumblue",     shape=1) +
scale_size(range = c(1,11), name="Sells Volume")+
labs(title="Reglone SL")+
xlab(" ")+
ylab(" ")
p
4

1 回答 1

18

您要更改的是空心点边界的厚度吗？它可以grid.edit从grid包中完成。

library(ggplot2)
library(grid)

ggplot(data = data.frame(x = 1:10, y = 1:10), aes(x=x, y=y)) + 
   geom_point(size = 10, shape = 1)

grid.force()  # To make the grobs visible to grid editing tools

grid.edit("geom_point.points", grep = TRUE, gp = gpar(lwd = seq(1, 5.5, .5)))

在此处输入图像描述

编辑获取图例键以匹配点

library(ggplot2)
library(grid)
library(gtable)

p = ggplot(data = data.frame(x = 1:10, y = 1:10, c = c(rep("a", 5), rep("b", 5))), 
   aes(x=x, y=y, colour = c)) + 
   geom_point(shape = 1, size = 10)

lwd = 8   # Set line width

g = ggplotGrob(p); dev.off()  # Get the plot grob

# Get the indices for the legend: t = top, r = right, ...
indices <- c(subset(g$layout, name == "guide-box", select = t:r))

# Get the row number of the legend in the layout
rn <- which(g$layout$name == "guide-box")

# Extract the legend
legend <- g$grobs[[rn]]

# Get the legend keys
pointGrobs = which(grepl("points", legend$grobs[[1]]$grobs))

# Check them out - no line width set
# for (i in pointGrobs) str(legend$grobs[[1]]$grobs[[i]])

# Set line width
for (i in pointGrobs) legend$grobs[[1]]$grobs[[i]]$gp$lwd = lwd

# Check them out - line width set
# for (i in pointGrobs) str(legend$grobs[[1]]$grobs[[i]])

# Put the modified legend back into the plot grob
g = gtable_add_grob(g, legend, t=indices$t, l=indices$l)

# g$grobs[[4]]$children[[2]]$gp$lwd = lwd  # Alternative for setting lwd for points in the plot

grid.newpage()
grid.draw(g)

grid.force()  # To make the grobs visible to grid editing tools

grid.edit("geom_point.points", grep = TRUE, gp = gpar(lwd = lwd))
于 2013-07-16T20:53:58.257 回答