[英]plotly R subplot / highlight, size an color problem
我正在使用鏈接的條形圖和折線圖(下面的代碼)做一個子圖,我遇到了一些問題:
library(readr)
library(dplyr)
library(plotly)
library(crosstalk)
library(forecast)
library(ggplot2)
library(tidyverse)
library(readr)
data <- read.csv(url("https://covid.ourworldindata.org/data/owid-covid-data.csv"))
data$date <- as.Date(data$date)
shared_data <- SharedData$new(data, key = ~location)
col <- shared_data %>%
plot_ly() %>%
mutate(location=as.character(location)) %>%
filter(date == "2020-12-07") %>%
filter(continent == "Europe" & location != "Russia" & population > 9000000) %>%
mutate(location = fct_reorder(location, total_cases_per_million, .desc = TRUE)) %>%
add_bars(x = ~location, y = ~total_cases_per_million, color = I("grey")) %>%
layout(yaxis = list(title = "Total Covid-19 cases per million people")) %>%
hide_legend()
lines <- shared_data %>%
plot_ly() %>%
filter(continent == "Europe" & location != "Russia" & population > 9000000) %>%
add_lines(x = ~date, y = ~new_cases_smoothed_per_million, color = ~location) %>%
layout(yaxis = list(title = "New Covid-19 cases (7 days avg) per million people"))
subplot(col, lines, titleY = TRUE) %>%
hide_legend() %>%
highlight(on = "plotly_hover") %>%
layout(title = "Covid-19 incidence in largest European countries")
1- 突出顯示:當我突出顯示時,條形圖的條形會分成兩部分: 有誰知道如何解決這個問題?
2-顏色:我怎樣才能在兩個圖表中為同一個國家/地區使用相同的顏色? 如果我只是 map 條形圖中顏色上的國家(位置),則生成的 colors 不對應。 我嘗試了幾行通過谷歌搜索找到的行,但似乎沒有任何效果。
3-我怎樣才能得到兩個大小相同的圖? (從圖像中可以看出,它們相對於另一個有點偏移)
嘗試添加layout(barmode = "overlay")
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.