mirror of
https://github.com/dchakro/ggplot_themes.git
synced 2026-05-17 11:22:16 -07:00
c9f0f67fe1
commit 6f817ea39cee879a6022c5debc3c22eceadbec02
Author: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Tue Aug 25 16:05:09 2020 +0300
Updates
commit 7b789a0ea89c057e4bc3e205198b3374c7d3d312
Author: dchakro <35454738+dchakro@users.noreply.github.com>
Date: Tue Aug 25 16:02:58 2020 +0300
add support for font face.
bold, italic, bold-italic and plain.
39 lines
1.9 KiB
R
39 lines
1.9 KiB
R
rm(list=ls())
|
|
set.seed(100)
|
|
a <- rnorm(50,mean = 50,sd = 1)
|
|
b <- rnorm(50,mean = 0,sd = 1)
|
|
dat <- data.frame(X=a,Y=b)
|
|
dat$Class <- sample(x = c("beta","alpha"),size = 10,replace = T)
|
|
|
|
library(ggplot2)
|
|
|
|
ggplot(data = dat,aes(x=X,y=Y,color=Class))+geom_point()+scale_color_manual(values=c("red","blue"))+xlab("X-axis")+ylab("Y-axis")+ggtitle("Default theme")
|
|
ggsave("~/Desktop/tmp/1.png",width = 6,height = 5,dpi = "print")
|
|
|
|
ggplot(data = dat,aes(x=X,y=Y,color=Class))+geom_point()+scale_color_manual(values=c("red","blue"))+xlab("X-axis")+ylab("Y-axis")+ggtitle("ggplot2::theme_bw")+theme_bw()
|
|
ggsave("~/Desktop/tmp/2.png",width = 6,height = 5,dpi = "print")
|
|
|
|
source('https://raw.githubusercontent.com/dchakro/ggplot_themes/master/DC_theme_generator.R')
|
|
|
|
customtheme <- DC_theme_generator(type='L')
|
|
ggplot(data = dat,aes(x=X,y=Y,color=Class))+geom_point()+scale_color_manual(values=c("red","blue"))+xlab("X-axis")+ylab("Y-axis")+ggtitle("DC_theme_generator('L')")+customtheme
|
|
ggsave("~/Desktop/tmp/3.png",width = 6,height = 5,dpi = "print")
|
|
|
|
customtheme <- DC_theme_generator(type='square')
|
|
ggplot(data = dat,aes(x=X,y=Y,color=Class))+geom_point()+scale_color_manual(values=c("red","blue"))+xlab("X-axis")+ylab("Y-axis")+ggtitle("DC_theme_generator('square')")+customtheme
|
|
ggsave("~/Desktop/tmp/4.png",width = 6,height = 5,dpi = "print")
|
|
|
|
|
|
|
|
|
|
customtheme <- DC_theme_generator(type = 'L',
|
|
legend = 'F',
|
|
ticks = 'in',
|
|
x.axis.angle = 45,
|
|
hjust = 0.5,
|
|
vjust = 0.5,
|
|
fontsize.cex = 1.8,
|
|
fontfamily = 'mono',
|
|
fontstyle = "bold")
|
|
|
|
ggplot(data = dat, aes(x=X,y=Y,color=Class)) + geom_point() + scale_color_manual(values=c("red","blue")) + xlab("X-axis") + ylab("Y-axis") + ggtitle("Customized DC_theme_generator") + customtheme
|