【发布时间】：2019-07-16 23:09:33
【问题描述】：
我无法使用 Plotly 在 RStudio 上渲染颜色。我正在使用最新版本的 R 并且我的所有软件包都已更新。
代码如下：
suppressPackageStartupMessages(library(tidyverse))
suppressPackageStartupMessages(library(rvest))
suppressPackageStartupMessages(library(gender))
suppressPackageStartupMessages(library(genderdata))
suppressPackageStartupMessages(library(ggrepel))
suppressPackageStartupMessages(library(janitor))
suppressPackageStartupMessages(library(maps))
suppressPackageStartupMessages(library(usmap))
suppressPackageStartupMessages(library(plotly))
# Creates variable to hold Wikipedia link
RawElectionData <- "https://en.wikipedia.org/wiki/2016_United_States_presidential_election"
# Creates variable to hold and scrape data for the 2016 election from the Wikipedia page
ElectionData <- read_html(RawElectionData) %>%
html_node(xpath = '//*[@id="mw-content-text"]/div/div[37]/table') %>%
html_table(fill=TRUE) %>% clean_names() %>% as_tibble()
# Cleaning of the data
ElectionData <- ElectionData %>%
rename(State = x,
ClintonRaw = hillary_clinton_democratic,
TrumpRaw = donald_trump_republican) %>%
select(State, ClintonRaw, TrumpRaw) %>%
slice(-c(1,10,22,23,32,33,34,58)) %>%
mutate(State=replace(State, State== "Maine (at-lg)", "Maine"),
State=replace(State, State== "Nebraska (at-lg)", "Nebraska"),
ClintonRaw=parse_number(ClintonRaw),
TrumpRaw=parse_number(TrumpRaw),
PercentTrump=round(TrumpRaw/(TrumpRaw+ClintonRaw)*100,2))
#Save data
write_csv(ElectionData, path="ElectionDataChpt2.csv")
ElectionDataWithHover <- ElectionData
ElectionDataWithHover$hover <- with(
ElectionDataWithHover,
paste(State, "\n", "Percent Trump: ", PercentTrump, "%")
)
boundaries<- list(color=toRGB("white"), width=2)
projection <- list(
scope = 'usa',
projection = list(type='albers usa'),
showlakes = TRUE,
lakecolor=toRGB('white')
)
plotattempt2 <- plot_geo(
ElectionDataWithHover,
locationmode= 'USA-states') %>%
add_trace(
z = ~PercentTrump,
text = ~hover,
locations = ~State,
color = ~PercentTrump,
colors = 'Reds') %>%
colorbar(title = "Percent of Trump Voters" ) %>%
layout(title='Percentage of Trump Voters by State (2016)', geo = projection)
plotattempt2
当我运行它时，我没有收到任何错误，但实际情节等值线上的颜色没有显示。这是输出。 The output remains the same regardless of whether I'm using the RStudio viewer or viewing the output in browser.
【问题讨论】：