Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
8c9a3de5
Commit
8c9a3de5
authored
Jun 13, 2018
by
dmattek
Browse files
Change of default font and plot sizes. Use global ggplot theme.
parent
949f801a
Changes
3
Hide whitespace changes
Inline
Side-by-side
modules/auxfunc.R
View file @
8c9a3de5
...
...
@@ -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
,
...
...
modules/boxPlot.R
View file @
8c9a3de5
...
...
@@ -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
+
...
...
modules/downPlot.R
View file @
8c9a3de5
...
...
@@ -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"
,
1
0
,
"Height
(in)
"
,
1
1
,
min
=
1
,
width
=
100
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment