在 geom_tile 图上绘制 geom_scatterpie

Question

我想在 geom_tile 图上使用geom_scatterpie 绘制饼图。但是，我收到一个错误：

Error: Discrete value supplied to continuous scale

这是我无法工作的简单代码：

library(ggplot2)
library(scatterpie)

nasafile <- "http://eosweb.larc.nasa.gov/sse/global/text/global_radiation"
nasa <- read.table(file=nasafile, skip=13, header=TRUE)

p <- ggplot(aes(y = Lat , x = Lon), data = nasa )+
      geom_tile(aes(fill=Ann)) +
      scale_fill_gradientn(colours=brewer.pal('YlOrRd', n=9)) +
      theme_bw() +
      coord_equal()
plot(p)

这行得通，但如果我在上面添加geom_scatterpie：

首先绘制饼图的数据：

d <- data.frame(x=rnorm(5), y=rnorm(5))
d$A <- abs(rnorm(5, sd=1))
d$B <- abs(rnorm(5, sd=2))
d$C <- abs(rnorm(5, sd=3))

但是当我这样做时出现错误：

p + geom_scatterpie(aes(x=x, y=y), data=d, cols=c("A", "B", "C")) + coord_fixed()

Answer 1

问题是您的geom_tile 使用连续填充比例，而geom_scatterpie 使用离散填充比例。如果您将 Ann 更改为一个因子，它会起作用。不理想，但这可行：

nasa$Ann <- as.factor(as.integer(nasa$Ann))
mypalette <- brewer.pal(9, "YlOrRd") # 6 for geom_tile, 3 for geom_scatterpie
p <- ggplot(aes(y = Lat , x = Lon), data = nasa )+
    geom_tile(aes(fill=Ann)) +
    scale_fill_manual(values = mypalette) +
    theme_bw() +
    coord_equal()
p

d <- data.frame(x=rnorm(5, 0, 50), y=rnorm(5, 0, 30))    # larger sd
d$A <- abs(rnorm(5, sd=1))
d$B <- abs(rnorm(5, sd=2))
d$C <- abs(rnorm(5, sd=3))

p + geom_scatterpie(aes(x=x, y=y, r = 20), data=d, cols=c("A", "B", "C"))  #larger radius

或者，使用size= 代替fill=（而不是geom_scatterpie）：

p <- ggplot(aes(y = Lat , x = Lon), data = nasa )+
    geom_tile(aes(fill=Ann)) +
    scale_fill_gradientn(colours=brewer.pal('YlOrRd', n=9)) +
    theme_bw() +
    coord_equal()
p

d <- data.frame(Lon = c(-100, 0, 100),
                Lat = c(-50, 0, 50),
                genvar = c(.1, .3, .5))

p + geom_point(data = d, aes(x = Lon, y = Lat, size = genvar),
               color = "white")