ggbiplot удаление фона

Question

Привет, я сделал ggbiplot с примером, приведенным в пакете. Я хотел бы знать, возможно ли убрать серый фон.

library(ggbiplot)

data(wine)

wine.pca <- prcomp(wine, scale. = TRUE)

print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))

Я посмотрел на функции, приведенные здесь

https://github.com/vqv/ggbiplot/blob/master/R/ggbiplot.r

Но, насколько я вижу, ни один из этих параметров не меняет фон.

У меня нет опыта работы с R, но если у кого-то есть решение для примера с вином, я уверен, что могу экстраполировать на свои собственные данные.

Большое спасибо!

Answer 1

Есть несколько вариантов, но все они так или иначе меняют "тему". Он не имеет ничего общего с биплотом, с самим ggplot.

Сначала измените только фон:

+ theme(panel.background = element_blank())

Если вы также хотите удалить линии сетки:

+ theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())

Дальнейшие варианты есть в теме?

Во-вторых, вы можете изменить общую тему, например:

+ theme_bw()  #black and white theme, as previously suggested
+ theme_classic(à  # classic theme

Или, конечно, вы можете объединить оба.

Вы можете найти дополнительную информацию здесь: http://felixfan.github.io/rstudy/2013/11/27/ggplot2-remove-grid-background-margin/

Answer 2

Что-то вроде этого?

p <- ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE) + theme_bw()
print(p)

Answer 3

Нет, как-то так:

p <- ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE) 
p + theme_bw()

или же

p + theme_classic()

или же

p + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())

и так далее и тому подобное.