Commit 8c9a3de5 authored by dmattek's avatar dmattek

Change of default font and plot sizes. Use global ggplot theme.

parent 949f801a
......@@ -296,23 +296,8 @@ myGgplotTraj = function(dt.arg, # data table
xlab(paste0(xlab.arg, "\n")) +
ylab(paste0("\n", ylab.arg)) +
ggtitle(plotlab.arg) +
theme_bw(base_size = 18, base_family = "Helvetica") +
theme(
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
panel.border = element_blank(),
axis.line.x = element_line(color = "black", size = 0.25),
axis.line.y = element_line(color = "black", size = 0.25),
axis.text.x = element_text(size = 12),
axis.text.y = element_text(size = 12),
strip.text.x = element_text(size = 14, face = "bold"),
strip.text.y = element_text(size = 14, face = "bold"),
strip.background = element_blank(),
legend.key = element_blank(),
legend.key.height = unit(1, "lines"),
legend.key.width = unit(2, "lines"),
legend.position = "top"
)
myGgplotTheme +
theme(legend.position = "top")
return(p.tmp)
}
......@@ -402,23 +387,9 @@ myGgplotScat = function(dt.arg,
p.tmp = p.tmp +
theme_bw(base_size = 18, base_family = "Helvetica") +
theme(
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
axis.line.x = element_line(color = "black", size = 0.25),
axis.line.y = element_line(color = "black", size = 0.25),
axis.text.x = element_text(size = 12),
axis.text.y = element_text(size = 12),
strip.text.x = element_text(size = 14, face = "bold"),
strip.text.y = element_text(size = 14, face = "bold"),
strip.background = element_blank(),
legend.key = element_blank(),
legend.key.height = unit(1, "lines"),
legend.key.width = unit(2, "lines"),
legend.position = "none"
)
myGgplotTheme +
theme(legend.position = "none")
# Marginal distributions don;t work with plotly...
# if (is.null(facet.arg))
# ggExtra::ggMarginal(p.scat, type = "histogram", bins = 100)
......@@ -426,24 +397,28 @@ myGgplotScat = function(dt.arg,
return(p.tmp)
}
myGgplotTheme = theme_bw(base_size = 18, base_family = "Helvetica") +
myGgplotTheme =
theme_bw(base_size = 12, base_family = "Helvetica") +
theme(
panel.spacing = unit(1, "lines"),
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
axis.line.x = element_line(color = "black", size = 0.25),
axis.line.y = element_line(color = "black", size = 0.25),
axis.text.x = element_text(size = 12, angle = 45, hjust = 1),
panel.border = element_blank(),
axis.line = element_line(color = "black", size = 0.25),
axis.text.x = element_text(size = 12),
axis.text.y = element_text(size = 12),
strip.text.x = element_text(size = 14, face = "bold"),
strip.text.y = element_text(size = 14, face = "bold"),
axis.title = element_text(size = 14),
strip.text = element_text(size = 14, face = "bold"),
strip.background = element_blank(),
legend.key = element_blank(),
legend.key = element_blank(),
legend.text = element_text(size = 12),
legend.key.height = unit(1, "lines"),
legend.key.width = unit(2, "lines"),
legend.position = "right"
)
myPlotHeatmap <- function(data.arg,
dend.arg,
palette.arg,
......
......@@ -236,22 +236,8 @@ modBoxPlot = function(input, output, session,
scale_fill_discrete(name = '') +
xlab('') +
ylab('') +
theme_bw(base_size = 18, base_family = "Helvetica") +
theme(
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
panel.border = element_blank(),
axis.line.x = element_line(color = "black", size = 0.25),
axis.line.y = element_line(color = "black", size = 0.25),
axis.text.y = element_text(size = 12),
strip.text.x = element_text(size = 14, face = "bold"),
strip.text.y = element_text(size = 14, face = "bold"),
strip.background = element_blank(),
legend.key = element_blank(),
legend.key.height = unit(1, "lines"),
legend.key.width = unit(2, "lines"),
legend.position = input$selPlotBoxLegendPos
)
myGgplotTheme +
theme(legend.position = input$selPlotBoxLegendPos)
if (input$chBxAxisLabelsRotate)
p.out = p.out +
......
......@@ -19,8 +19,8 @@ downPlotUI <- function(id, label = "Download Plot") {
3,
numericInput(
ns('inPlotWidth'),
"Width",
17,
"Width (in)",
8.5,
min = 1,
width = 100
)
......@@ -29,8 +29,8 @@ downPlotUI <- function(id, label = "Download Plot") {
3,
numericInput(
ns('inPlotHeight'),
"Height",
10,
"Height (in)",
11,
min = 1,
width = 100
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment