是否可以在R中订购图例条目?
如果我例如指定一个这样的饼图:
plot_ly(df, labels = Product, values = Patients, type = "pie",
marker = list(colors = Color), textfont=list(color = "white")) %>%
layout(legend = list(x = 1, y = 0.5))
Run Code Online (Sandbox Code Playgroud)
图例按哪个产品患者数最多排序.我希望图例按产品的字母顺序排序.
这可能吗?
R版本:3.1.0
已读取以下线程: - 格式化数据框中的日期列 - 将带有日期列的数据框转换为时间序列
关于这个话题的其他几个信息没有任何运气.
我只需要从.csv文件导入一个数据框,我需要索引是Date列指定的日期列.
df <- read.csv(sti, header=TRUE)
df$Date <- as.Date(df$Date, format="%Y%m%d")
Run Code Online (Sandbox Code Playgroud)
(我尝试了其他几种日期格式)
这应该相当简单,但结果是填充了N/As的列,具有错误日期的列和错误消息.
我的csv文件包含Excel日期格式,我尝试更改Windows中的语言设置.
我知道这是日期格式,但我不知道是什么.即使是头部的dput()似乎也没有了.这是一个缩短版本:
structure(list(Date = c("30/12/2013", "27/12/2013", "23/12/2013",
"20/12/2013", "19/12/2013", "18/12/2013"), MAERSKA = c(11180,
11150, 10900, 10770, 10670, 10500), WDH = c(527, 522, 515.5,
515.5, 512, 504.5), VWS = c(160.2, 159.8, 157, 156.6, 156.5,
153), TRYG = c(524.5, 523, 520.5, 519, 504, 484), TOP = c(142.8,
142.5, 141.9, 141.5, 139.9, 136.5), TDC = c(52.6, 52.7, 52.45,
51.95, 51.65, 51.85), Pandora …Run Code Online (Sandbox Code Playgroud) 我正在尝试在 R 中的 Shiny 应用程序中开发交互式 choropleth。我尝试过使用 plotly、gVis 和 rCharts,但仍然没有任何运气。我现在需要为瑞典可视化它,但稍后我可能也需要为其他国家/地区使用它。到目前为止,这是我对 gvisGeoMap 所拥有的:
polygons <- readOGR("/ggshape", layer="SWE_adm1")
polygons <- fortify(polygons, region="ID_1")
data.poly <- as.data.frame(polygons)
data.poly <- data.poly[,c(1,2)]
data.poly.final <- data.frame(locationvar = paste(data.poly[,2],data.poly[,1], sep = ":"),
numvar=1,
hovervar="test")
data.poly.final$locationvar <- as.character(data.poly.final$locationvar)
data.poly.final$hovervar <- as.character(data.poly.final$hovervar)
map <- gvisGeoMap(data=data.poly.final, locationvar = "locationvar",
options=list(width='800px',heigth='500px',colors="['0x0000ff', '0xff0000']",
dataMode = "markers"))
plot(map)
Run Code Online (Sandbox Code Playgroud)
根据文档,我在这里尝试时应该能够使用纬度和经度坐标,但我还没有成功。我使用的 shapefile 来自http://www.gadm.org/download
基本上,有谁知道如何从 gadm.org 获得交互式可视化来处理 shapefile?
这就是我将如何使用 ggplot
SWE <- fortify(polygons, region="ID_1")
SWEplot <- merge(x=SWE, y=my_data, by="id")
p <- ggplot() +
geom_polygon(data = SWEplot , …Run Code Online (Sandbox Code Playgroud)