2016-12-23 25 views
0

显示所有的x轴标签我有了变量城市,描述和n以下的数据帧。hchart()条形图不中的R

city <- c("BIG COTTONWOOD", "BOUNTIFUL", "CANYON RIM", "CANYON RIM", 
"CANYON RIM", "COPPERTON", "COTTONWOOD HEIGHTS", "DRAPER", "DRAPER", 
"EAST MILLCREEK", "FARMINGTON", "FARMINGTON", "HERRIMAN", "HERRIMAN", 
"HERRIMAN", "HERRIMAN", "HOLLADAY", "KEARNS", "KEARNS", "MAGNA", 
"MAGNA", "MAGNA", "MAGNA", "MAGNA", "MIDVALE", "MIDVALE", "MIDVALE", 
"MIDVALE", "MIDVALE", "MURRAY", "MURRAY", "MURRAY", "MURRAY", 
"MURRAY", "MURRAY", "MURRAY", "NORTH SALT LAKE", "OLYMPUS COVE", 
"OLYMPUS COVE", "PARK CITY", "RIVERTON", "SALT LAKE CITY", "SALT LAKE CITY", 
"SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", 
"SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", "SALT LAKE CITY", 
"SALT LAKE COUNTY", "SALT LAKE COUNTY", "SANDY", "SANDY", "SANDY", 
"SANDY", "SANDY", "SANDY", "SOUTH JORDAN", "SOUTH SALT LAKE", 
"SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH SALT LAKE", 
"SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH SALT LAKE", "SOUTH WEST SL COUNTY", 
"TAYLORSVILLE", "TAYLORSVILLE", "TAYLORSVILLE", "TOOELE", "UTAH COUNTY", 
"WEST JORDAN", "WEST JORDAN", "WEST JORDAN", "WEST JORDAN", "WEST MILLCREEK", 
"WEST MILLCREEK", "WEST MILLCREEK", "WEST MILLCREEK", "WEST MILLCREEK", 
"WEST MILLCREEK", "WEST MILLCREEK", "WEST VALLEY CITY", "WEST VALLEY CITY", 
"WEST VALLEY CITY", "WEST VALLEY CITY", "WEST VALLEY CITY", "WEST VALLEY CITY", 
"WEST VALLEY CITY", "WEST VALLEY CITY", "WOODS CROSS", "WOODS CROSS" 
) 
description <- c("PUBLIC ORDER", "PUBLIC ORDER", "LARCENY", "PUBLIC ORDER", 
"PUBLIC PEACE", "PUBLIC ORDER", "PUBLIC ORDER", "NONREPTABL TA", 
"PUBLIC ORDER", "PUBLIC ORDER", "DAMAGED PROP", "PUBLIC ORDER", 
"DAMAGED PROP", "DRUGS", "LARCENY", "PUBLIC ORDER", "PUBLIC ORDER", 
"PUBLIC ORDER", "PUBLIC PEACE", "ASSAULT", "DRUGS", "ESCAPE", 
"LARCENY", "PUBLIC ORDER", "DRUGS", "ESCAPE", "PUBLIC ORDER", 
"PUBLIC PEACE", "REPORTABLE TA", "ASSAULT", "DAMAGED PROP", "DRUGS", 
"ESCAPE", "LARCENY", "PUBLIC ORDER", "STOLEN VEHICLE", "PUBLIC ORDER", 
"ESCAPE", "PUBLIC ORDER", "PUBLIC ORDER", "PUBLIC ORDER", "ASSAULT", 
"DAMAGED PROP", "DRUGS", "ESCAPE", "LARCENY", "NONREPTABL TA", 
"PUBLIC ORDER", "PUBLIC PEACE", "REPORTABLE TA", "STOLEN VEHICLE", 
"PUBLIC ORDER", "REPORTABLE TA", "DAMAGED PROP", "DRUGS", "ESCAPE", 
"NONREPTABL TA", "PUBLIC ORDER", "PUBLIC PEACE", "PUBLIC ORDER", 
"ASSAULT", "DRUGS", "ESCAPE", "LARCENY", "PUBLIC ORDER", "PUBLIC PEACE", 
"REPORTABLE TA", "STOLEN VEHICLE", "PUBLIC ORDER", "ESCAPE", 
"PUBLIC ORDER", "PUBLIC PEACE", "DAMAGED PROP", "PUBLIC PEACE", 
"DRUGS", "ESCAPE", "PUBLIC ORDER", "PUBLIC PEACE", "ASSAULT", 
"DRUGS", "ESCAPE", "LARCENY", "NONREPTABL TA", "PUBLIC ORDER", 
"PUBLIC PEACE", "ASSAULT", "DRUGS", "ESCAPE", "NONREPTABL TA", 
"PUBLIC ORDER", "PUBLIC PEACE", "REPORTABLE TA", "STOLEN VEHICLE", 
"DAMAGED PROP", "PUBLIC ORDER") 

n <- c(3L, 2L, 1L, 2L, 1L, 1L, 4L, 1L, 16L, 6L, 1L, 4L, 1L, 1L, 2L, 
2L, 6L, 13L, 2L, 2L, 1L, 2L, 1L, 8L, 3L, 1L, 11L, 1L, 2L, 1L, 
1L, 2L, 3L, 1L, 8L, 1L, 1L, 1L, 2L, 1L, 4L, 4029L, 2496L, 4837L, 
3637L, 11432L, 2348L, 8008L, 3798L, 2210L, 2341L, 1L, 1L, 1L, 
4L, 1L, 1L, 10L, 1L, 3L, 1L, 11L, 9L, 6L, 13L, 1L, 2L, 1L, 3L, 
1L, 12L, 2L, 1L, 1L, 3L, 1L, 7L, 1L, 2L, 1L, 3L, 2L, 1L, 15L, 
1L, 2L, 6L, 7L, 4L, 16L, 5L, 2L, 1L, 1L, 1L) 

slc <- data.frame(city,description,n) 

我使用的highcharter()包提供通过J.Kunst显示分组条形图在上述数据帧。我运行以下相同的命令。

library(highcharter) 
library(dplyr) 
colors <- c("#487098","#484898","#34348d","#19198b","#208582","#942f59","#dd125b","#000000","#c61051","#000FFF") 


slc %>% hchart("column",x=city,y=log(n*100),group=description)%>%hc_add_theme(hc_theme_google()) %>% hc_colors(colors) 

的分组条形图显示正确,有轻微的问题。并非所有slc$city变量都显示在x轴上。这可能是由于城市变量的数量。有没有办法减少文字显示大小? (类似于ggplot2中的geom_text)谢谢您提前!

回答

0

您可以通过设置xAxis.labels.step1强制所有x轴标签的显示。每次标签旋转都不会很好计算,所以您可以通过设置将rotation设置为-90

slc %>% hchart("column",x=city,y=log(n*100),group=description) %>% 
    hc_add_theme(hc_theme_google()) %>% 
    hc_colors(colors) %>% 
    hc_xAxis(labels = list(rotation = -90, step = 1)) 

结果:

enter image description here

演示为Highcharts(无R):http://jsfiddle.net/Lv12u7cg/