plotly r choropleth with subplot not working as working desired

Question

我正在使用提供的示例並將其擴展爲如下生成兩個choropleth子圖。我只得到一個情節和奇怪的更高的規模：

library(plotly) 
df <- read.csv("https://raw.githubusercontent.com/plotly/datasets/master/2011_us_ag_exports.csv") 
df$hover <- with(df, paste(state, '<br>', "Beef", beef, "Dairy", dairy, "<br>", "Fruits", total.fruits, "Veggies", total.veggies, 
"<br>", "Wheat", wheat, "Corn", corn)) 

# give state boundaries a white border 
l <- list(color = toRGB("white"), width = 2) 
# specify some map projection/options 
g <- list(
    scope = 'usa', 
    projection = list(type = 'albers usa'), 
    showlakes = TRUE, 
    lakecolor = toRGB('white') 
) 

p1 <- plot_ly(df, z = total.exports, text = hover, locations = code, type = 'choropleth', locationmode = 'USA-states', color = total.exports, colors = 'Purples', 
marker = list(line = l), colorbar = list(title = "Millions USD")) 

p2 <- plot_ly(df, z = total.exports, text = hover, locations = code, type = 'choropleth', locationmode = 'USA-states', color = total.exports, colors = 'Purples', 
marker = list(line = l), colorbar = list(title = "Millions USD")) 

plotly::subplot(p1, p2, nrows = 2) %>% layout(geo = g) 

我誤解或失蹤？

Answer 1

我覺得這是你所需要的：

p1 <- plot_ly(df, z = total.exports, text = hover, locations = code, type = 'choropleth', locationmode = 'USA-states', color = total.exports, colors = 'Purples', 
marker = list(line = l), colorbar = list(title = "Millions USD"), geo = 'geo1') 

p2 <- plot_ly(df, z = total.exports, text = hover, locations = code, type = 'choropleth', locationmode = 'USA-states', color = total.exports, colors = 'Purples', 
marker = list(line = l), colorbar = list(title = "Millions USD"), geo = 'geo2') 

plotly::subplot(p1, p2, nrows = 2) %>% layout(geo = g, geo2 = g)