R ggplot2 hexbin сюжетная ошибка графики? - PullRequest
2 голосов
/ 11 марта 2020

Я всегда замечаю несколько странных белых горизонтальных пунктирных линий, которые, кажется, появляются на границах между вертикально смежными шестиугольниками на каждом графике плотности шестиугольников, который я создаю, используя ggplot2 в среде R. Они, конечно, там не принадлежат ... Такое поведение (ошибка) воспроизводимо на нескольких установках R на разных компьютерах с разными версиями MS Windows и разными графическими драйверами. Я понятия не имею, как избавиться от этих пунктирных линий. Ниже приведен график, показывающий проблему, и код, который создал этот график. Это известная проблема? Любой намек на преодоление этого? Большое спасибо за любую помощь!

Plot with bespoke bug

## Load libraries
library(ggplot2)
library(hexbin)

## Create some data
set.seed(222)
myx <- data.frame(x = 0.4 + rnorm(10000, mean = 0, sd = 0.1))
myy <- data.frame(y = 0.5 + rnorm(10000, mean = 0, sd = 0.1))
MyData <- data.frame(xvariable=myx$x*100, yvariable=myy$y*100)

## Prepare the plot window
dev.off(2)
windows.options(width=6, height=6)
op <- par(mfrow = c(1,1))
op <- par(oma = c(0,0,0,0) + 0.1,
          mar = c(5.1, 5.1, 4.1, 2.1))

## Creaate the plot
ggplot(MyData, aes(x=xvariable, y=yvariable) ) +
  geom_hex(bins=66) +
  xlim(0, 100) +
  ylim(0, 100) +
  ggtitle("My plot") +
  scale_fill_continuous(type = "viridis") +
  theme_bw() +
  theme(plot.title = element_text(color="black", size=17, face="bold"),
        axis.title.x = element_text(color="black", size=17, face="bold"),
        axis.title.y = element_text(color="black", size=17, face="bold"),
        axis.text=element_text(color="black", size=15, face="bold"),
        legend.title = element_text(color = "black", size = 15), 
        legend.text = element_text(color = "black", size=12),
        legend.position = c(0.9,0.2), legend.direction = "vertical")

1 Ответ

0 голосов
/ 11 марта 2020

Похоже, если вы сохраните в формате pdf, а затем преобразуете это в изображение, строки не будет.

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...