Ось X спрессована - PullRequest
Новая
       73

Ось X спрессована

0 голосов
/ 23 октября 2019

Я хотел бы создать документ уценки из моего скрипта R. Мне удалось отобразить разные графики, круговые диаграммы, листовки и т. Д.

Но с ggplot это не работает. 

{r, eval=TRUE, echo=TRUE, warning=FALSE, message=FALSE}

p <- qplot() +
  theme_classic() +
  ggtitle("Title") +
  coord_fixed(ratio = 1) +
  xlab("wrong") +
  ylab("super") +
  geom_polygon(data=fortify(data1),
               aes(x=long, y=lat, group=group), alpha=0.1, fill=NA, col="black", size=0.1) +
  geom_point(data = as.data.frame(data2),
            aes(x = coords.x1, y = coords.x2, color = pal1), shape=4, alpha=1)

p + theme(legend.position="right")

Сюжет выглядит совершенно нормально, если я его экспортируюс ggsave, но в уценке ось x сжата вместе.

1 Ответ

0 голосов
/ 23 октября 2019

Без воспроизводимого примера трудно решить ваши проблемы. Тем не менее, вы можете попытаться изменить несколько строк (каждая за раз), чтобы увидеть, если это имеет значение. В частности, я бы удалил строку coord_fixed(ratio = 1) +, чтобы посмотреть, что произойдет. Вы также можете попробовать разные ratio номера, чтобы получить то, что вы хотите.
Если это не решит вашу проблему, пожалуйста, предоставьте воспроизводимые примеры данных.

...