como poner etiquetas en arcgis

Cómo establecer el formato de la etiqueta de datos y el ángulo de la etiqueta del eje en el paquete R highcharter

Question

Estoy experimentando con el paquete R highcharter para crear una función de gráfico de barras. el código es como a continuación. Solicito ayuda en 1-¿Cómo cambiar el formato de las etiquetas de datos a porcentaje? 2-Cómo configurar el ángulo de visualización de la etiqueta del eje X. Quiero configurarlo en 45 grados

hcbar_categorycount_vertical <- function(data=x,var=y){
df <- data.frame(prop.table(table(data[var])))
names(df) <- c(var,''Proportion'')
df$Proportion <- round(df$Proportion*100,2)
df <- df%>% arrange(-Proportion)
df[,1] <- as.character(df[,1])
df[,1] <- factor(df[,1], levels = df[,1])
df$Cumulative <- round(cumsum(df$Proportion),2)

highchart(debug = TRUE) %>%
hc_xAxis(categories=df[[1]]) %>%
hc_yAxis(labels = list(format = "{value}%"), max = 100) %>%
hc_add_series(name=var,data=df$Proportion,type = "column",dataLabels =       list(enabled = TRUE, format=''{point.label}%''))
}

No estoy seguro de cuál debería ser la sintaxis de "formato" dentro de la lista de propiedades de DataLabel. El código anterior no parece funcionar. Ya me he referido a la viñeta de Highcharter y a este sitio: http://jkunst.com/highcharter/highcharts-api.html#hc_xaxis-and-hc_yaxis

Pero no pude encontrar una respuesta. Gracias por la ayuda por adelantado.

Answer 1

@ jeganathan-velu,

1) Intenta cambiar el ''{point.label}%'' por ''{point.y}%''

2) Ver el ejemplo de Highcharts. Necesita agregar al hc_xAxis el argumento labels = list(rotation = 90)

El paquete highcharter es solo el contenedor de Highcharts para que pueda verificar todos los ejemplos y la API bien documentada de los Highcharts. Replicar demos de Highcharts

Answer 2

Encontré la respuesta después de prueba y error y más investigación en http://api.highcharts.com/highcharts#xAxis.labels.rotation

Publicar el componente de código actualizado para el beneficio de otros.

hc_xAxis(categories=df[[1]],labels = list(rotation=-45)) %>%
hc_yAxis(labels = list(format = "{value}%"), max = 100) %>%
hc_add_series(name=var,data=df$Proportion,type = "column",dataLabels = list(enabled = TRUE, format=''{point.y}%''))