geom_tileプロットにgeom_scatterpieをプロット

Question

geom_tileプロットの上にgeom_scatterpieを使用して円グラフをプロットしたいとします。しかし、私はエラーを取得しています：

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を追加した場合：：

Error: Discrete value supplied to continuous scale

ここで私は仕事に行くことができない簡単なコードです

プロットへの円グラフのための第一のデータ：

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_scatterpieが離散フィルスケールを使用しながら、あなたのgeom_tileが連続フィルスケールを使用していることです。 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")