001、使用绘制散点图进行测试。
a、直接绘制散点图
x <- 1:10 y <- seq(1, 1000, 100) dat <- data.frame(x, y) ## 生成测试数据 ggplot(dat, aes(x, y)) + geom_point() ## 直接绘制散点图
绘图结果如下：
b、修改x轴刻度线的粗细
x <- 1:10 y <- seq(1, 1000, 100) dat <- data.frame(x, y) ## 保持测试数据不变 ggplot(dat, aes(x, y)) + geom_point() + theme(axis.ticks.x = element_line(colour = "black", size = 3)) ## 修改刻度线的粗细size = 3
绘图结果如下：
c、修改x轴刻度线的长度
x <- 1:10 y <- seq(1, 1000, 100) dat <- data.frame(x, y) ## 保持测试数据不变 ggplot(dat, aes(x, y)) + geom_point() + theme(axis.ticks.x = element_line(colour = "black", size = 3, lineend =20)) ## 修改x轴刻度线标签的长度
绘图结果如下：
