在 Shinny Web 应用程序中绘制缺失状态图

Posted 2023-02-16

【中文标题】在 Shinny Web 应用程序中绘制缺失状态图

【英文标题】：Plotly map missing states in Shinny web application

【发布时间】：2020-11-17 06:05:56

【问题描述】：

我正在尝试在 Shinny 中使用 Plotly 创建一个交互式绘图，以显示所有美国县按人口进行颜色编码。但是，当我将以下代码作为 server.R 函数的一部分运行时，缺少加利福尼亚州、阿拉巴马州、亚利桑那州、科罗拉多州和阿肯色州：

output$countyPolygonMap <- renderPlotly(
        url <- 'https://raw.githubusercontent.com/plotly/datasets/master/geojson-counties-fips.json'
        countyGeo <- rjson::fromJSON(file=url)
        ## Obtaining the geographical file for all U.S. counties
        url2<- "https://raw.githubusercontent.com/plotly/datasets/master/fips-unemp-16.csv"
        df <- read.csv(url2, colClasses=c(fips="character"))
        names(df)[2] = "unemployment"
        ## obtaining the unemployment rate data 
        url3 <- "https://storage.googleapis.com/kagglesdsdata/datasets%2F579969%2F1374720%2Fus_county.csv?GoogleAccessId=[e-mail]&Expires=1596139521&Signature=easqHBFZ757D%2F7LVyDM%2BF%2FIMU6l2OEY6giqVvIC0l0tSSe%2Fohq6NC%2FLFKbsIV6FdFALmPUqG9vATbg0cuRVVwGQMsoUOjlW%2BZLhTVluxbYh1dDE1MTFzWRpzlSH18ejIwqa61F0ARJ%2Bpq6ryIfJuE7wQQ1rOCEpaVB9m%2FP7QaZm2gBJeHYLXJXcvO8w1p0sEnqRsGAesg2Fgj%2Bv8unPGNtDJekEWuNbl1K9k7CAaZWjG2QQ94LB9tAPvfKqykDWDD7w6yN3YFkcfu7kUmjs0CybnMD6IP%2FM5hvJXuUTIie0MOMTWt5bIua4qcTHxIxR5l918y1H17JA2HHrnKLVY%2BA%3D%3D"
        county <- read.csv(url3)

        countyPolygonMap <- plot_ly() %>% add_trace(
            type="choroplethmapbox",
            geojson=countyGeo,
            locations=county$fips,
            z=~county$population,
            colorscale="Viridis",
            zmin=0,
            zmax=12,
            marker=list(line=list(width=0),opacity=0.5)
        ) %>% layout(
            mapbox=list(
                style="carto-positron",
                zoom =2,
                center=list(lon= -95.71, lat=37.09))
        );
        countyPolygonMap;
        ## generating the interactive plotly map
    )

我仔细检查了源数据，没有问题或不适用。 R 也没有收到任何警告或错误。你能帮我吗？

【参考方案1】：

fips 需要为 5 位数字。您可以将其转换为county$nfips <- sprintf("%05d",county$fips)。然后在你的情节中使用nfips，你会得到以下输出：

请注意，您还错过了阿拉斯加和康涅狄格 - 全部都是 4 位数 fips。

【讨论】：

非常感谢您的帮助！