@@ -76,7 +76,9 @@ theme_grey <- function(base_size = 11, base_family = "") {
76
76
margin = margin(), debug = FALSE
77
77
),
78
78
79
- axis.line = element_blank(),
79
+ axis.line = element_line(),
80
+ axis.line.x = element_blank(),
81
+ axis.line.y = element_blank(),
80
82
axis.text = element_text(size = rel(0.8 ), colour = " grey30" ),
81
83
axis.text.x = element_text(margin = margin(t = 0.8 * half_line / 2 ), vjust = 1 ),
82
84
axis.text.y = element_text(margin = margin(r = 0.8 * half_line / 2 ), hjust = 1 ),
@@ -218,8 +220,10 @@ theme_minimal <- function(base_size = 12, base_family = "") {
218
220
panel.border = element_blank(),
219
221
strip.background = element_blank(),
220
222
plot.background = element_blank(),
221
- axis.ticks = element_blank(),
222
- axis.ticks.length = unit(0 , " lines" )
223
+ axis.ticks = element_line(),
224
+ axis.ticks.x = element_blank(),
225
+ axis.ticks.y = element_blank(),
226
+ axis.ticks.length = unit(1 , " lines" )
223
227
)
224
228
}
225
229
@@ -230,8 +234,12 @@ theme_classic <- function(base_size = 12, base_family = ""){
230
234
theme(
231
235
panel.border = element_blank(),
232
236
axis.line = element_line(colour = " black" ),
233
- panel.grid.major = element_blank(),
234
- panel.grid.minor = element_blank(),
237
+ panel.grid.major = element_line(),
238
+ panel.grid.major.x = element_blank(),
239
+ panel.grid.major.y = element_blank(),
240
+ panel.grid.minor = element_line(),
241
+ panel.grid.minor.x = element_blank(),
242
+ panel.grid.minor.y = element_blank(),
235
243
strip.background = element_rect(colour = " black" , size = 0.5 ),
236
244
legend.key = element_blank()
237
245
)
0 commit comments