ggplot2 изменить размер надписей и легенд, а также некоторые визуальные аспекты на моих графиках - PullRequest
Новая
       54

ggplot2 изменить размер надписей и легенд, а также некоторые визуальные аспекты на моих графиках

0 голосов
/ 07 ноября 2019

Я работаю с базой данных опроса, и мне нужно сделать несколько графиков и круговых диаграмм. Мне нужно изменить размеры моих легенд и ярлыков. Я нашел код, но я не знаю, как интегрировать его в тот, над которым я уже работал. У меня уже было несколько графиков, но мне нужно было изменить их все из-за аспекта, мне нужно добавить метки на свои круговые диаграммы и увеличить размер легенд и меток. Кроме того, мне нужно изменить внешний вид круговых диаграмм, потому что в нем есть соотношение, которого я не хочу, и мне нужно добавить процент в каждом срезе.

Я использую этот код для одного из моих круговых диаграмми это работает, но я не знаю, что делать, чтобы показать проценты на графике и выйти из чисел и соотношение, которое появляется. 

library(dplyr)
library(ggplot2)
library(ggmap) # for theme_nothing

datos_1 <- data.frame(Frecuencias = c(177, 2),
             Respuestas = c("Sí", "No")) %>%

mutate(Respuestas = factor(Respuestas, levels = c("No", "Sí")),
     cumulative = cumsum(Frecuencias),
     midpoint = cumulative - Frecuencias / 2,
     label = paste0(Respuestas, " ", round(Frecuencias / sum(Frecuencias) * 100), "%"))

grafica_1<-ggplot(datos_1, aes(x = 1, weight = Frecuencias, fill = Respuestas)) +
  geom_bar(width = 1, position = "stack") +
  coord_polar(theta = "y") +
  theme_minimal() +
  theme(axis.title.x=element_blank(), axis.text.x=element_blank(),
        axis.ticks.x=element_blank())`

У него есть соотношение и цифры, которые я не 'Я не хочу

Тогда проблема с моими барплотами заключается в том, что я не знаю, куда добавить код для увеличения размеров легенд и png при их сохранении. 

grafica_2<-ggplot(datos_2) +
  aes(x = Respuestas, fill = Respuestas, weight = frecuencias) +
  geom_bar() +
  scale_fill_hue() +
  labs(y = "Frecuencias")+
  theme_minimal() +
  theme(axis.title.x=element_blank(), axis.text.x=element_blank(),
        axis.ticks.x=element_blank(),
        (legend.title = element_text(size=18)) + 
        (legend.text = element_text(size = 14))) #I try this way but it marks an error

    grafica_2 + theme(legend.title = element_text(size=20)) +  
    theme(legend.text = element_text(size = 18)) #And this one works but not show the changes when I try to save it.

Это тот, который я хотел бы сохранить 

    png("C:/Users/Documents/Gráficos encuesta/gráfica_2.png", width = 1000, height = 1000) 
#And I try to make bigger the size of the png save it like this but it doesn't work. 
            plot(grafica_2)
            dev.off()

Это тот, который он сохраняет

Я не знаю, еслиэто проблема моего ноутбука, который очень медленно генерирует изображения или мой код, я очень новичок в R и ggplot, и иногда трудно понять, где ошибки. Я надеюсь, что кто-то может мне помочь.

...