¿Cómo ordenar, establecer límites y pausas en un gráfico de barras en R Studio?
Aquí está lo que tengo hasta ahora. ¡Tengo que hacer que mi gráfico (en la imagen) se parezca al gráfico de abajo! ¿Cómo puedo hacer que el orden de los países, el título y el color sean como en la imagen?
- Que los países y sus datos correspondientes vayan en el orden de (Nueva Zelanda, Taiwán, Australia, Islandia, Reino Unido, Canadá, Vietnam, Italia, India, Japón, Alemania, Estados Unidos, Estonia, Indonesia, Filipinas, Sudáfrica, Serbia, Argentina, Túnez, Ecuador) porque Nueva Zelanda tiene el número más alto y Ecuador tiene el número más bajo.
- Cambiar el color de cada barra.
- Agregar título.
¡SE AGRADECE CUALQUIER CÓDIGO ESPECÍFICO QUE PUEDA PROPORCIONAR EN RELACIÓN CON MI CONJUNTO DE DATOS!
Ver proyecto data1 Conjunto de datos
Ver(ProjectData_1)
Instalar y Cargar Paquetes
library(ggplot2)
library(sjstats)
library(car)
library(pwr)
Etiquetar Variables
Países <- ProjectData_1$Entity
PruebaPorCaso <- ProjectData_1$cumulative_tests_per_case
Crear Nuevo DataFrame
Países <- c("Nueva Zelanda", "Taiwán", "Australia", "Islandia", "Reino Unido", "Canadá", "Vietnam", "Italia",
"India", "Japón", "Alemania", "Estados Unidos", "Estonia", "Indonesia","Filipinas", "Sudáfrica", "Serbia",
"Argentina", "Túnez", "Ecuador")
PruebaPorCaso <- c(500, 250, 250, 41.7, 32.3, 27, 26.3, 23.8, 18.5, 15.4, 14.7, 13.7, 10.5, 8.7, 8.1, 6.5, 5.4, 4.9, 4.4, 4.6)
NuevoProyectoData1 <- data.frame(Países, PruebaPorCaso)
print(NuevoProyectoData1)
Crear Gráfico de Barras
GraficoBarrasData1 <- ggplot(NuevoProyectoData1, aes(x=Países, y=PruebaPorCaso)) +
geom_bar(stat = "identity")
GraficoBarrasData1 + coord_flip()
Tengo que hacer que mi gráfico (el de arriba) se parezca al gráfico de abajo–>
davy.ai
Para obtener el gráfico deseado, puedes realizar los siguientes cambios en tu código:
Aquí está el código modificado:
“`{r}
Reordena los países según los valores de TestPerCase
NewProjectData1$Countries <- factor(NewProjectData1$Countries,
levels = NewProjectData1$Countries[order(NewProjectData1$TestPerCase)])
Crea el gráfico de barras con colores y un título
Data1BarGraph <- ggplot(NewProjectData1, aes(x=Countries, y=TestPerCase, fill = Countries)) +
geom_bar(stat = “identity”) +
ggtitle(“Tests acumulativos por caso en diferentes países”) +
xlab(“”) +
ylab(“Tests acumulativos por caso”) +
theme(legend.position=”none”, # remover la leyenda
panel.background = element_blank(), # remover el fondo del panel
axis.line = element_line(colour = “black”), # agregar línea de los ejes
axis.text.x = element_text(angle = 90, hjust = 1)) # rotar etiquetas del eje x
Data1BarGraph # muestra el gráfico
“`
Esto debería darte un gráfico de barras con los países, título y colores como se muestra en la imagen de abajo.