gpt4 book ai didi

r - 如何在 ggplot2 中将刻度添加到图形的顶部和右侧

转载 作者:行者123 更新时间:2023-12-02 04:49:48 25 4
gpt4 key购买 nike

如何在 ggplot2 中将刻度添加到图形的顶部和右侧?我正在努力满足图表的标准格式,并且已经有了一个冗长的主题。

这是我使用一些任意数据的示例:

library (ggplot2)
library (gridExtra)

x <- seq(1,10,1)
y <- seq(1,100,10)
y2 <- seq(100,1,-10)
df <- data.frame(x,y,y2)

theme_new <- function(base_size = 12){theme(
plot.title = element_text (vjust = 3, size = 16,family="serif"), # plot title attrib.
plot.margin = unit (c(8, 4, 8, 4), "lines"), # plot margins
panel.border = element_rect (colour = "black", fill = F), # axis colour = black
panel.grid.major = element_blank (), # remove major grid
panel.grid.minor = element_blank (), # remove minor grid
panel.background = element_rect (fill = "white"), # background colour
legend.background = element_rect (fill = "white"), # background colour
#legend.justification=c(0, 0), # lock point for legend
#legend.position = c(0, 1), # put the legend INSIDE the plot area, use = "none" to turn off
legend.key = element_blank (), # switch off the rectangle around symbols in the legend
legend.title = element_blank (), # switch off the legend title
legend.text = element_text (size = 12), # sets the attributes of the legend text
axis.title.x = element_text (vjust = -2, size = 14,family="serif"), # change the axis title
axis.title.y = element_text (vjust = 1, angle = 90, size = 14,family="serif"), # change the axis title
axis.text.x = element_text (size = 12, vjust = -0.25, colour = "black",family="serif"),# change the axis label font attributes
axis.text.y = element_text (size = 12, hjust = 1, colour = "black",family="serif"), # change the axis label font attributes
axis.ticks = element_line (colour = "black", size = 0.5), # sets the thickness and colour of axis ticks
axis.ticks.length = unit(-0.25 , "cm"), # -ve length = inside ticks
axis.ticks.margin = unit(0.5, "cm") # margin between the ticks and the text
)}

ggplot() +
geom_line(data=df, aes(x=x, y=y, color='Observed')) +
geom_line(data=df, aes(x=x, y=y2, color='Expected')) +
labs(x="X", y="Y") +
theme_new()

产生这个:

plot example

我需要的是这个(在 Illustrator 中为此示例进行了修改):

plot example modified

非常感谢对此的任何帮助。

谢谢。

最佳答案

library(ggplot2)
library(gtable)

p = ggplot() +
geom_line(data=df, aes(x=x, y=y, color='Observed')) +
geom_line(data=df, aes(x=x, y=y2, color='Expected')) +
labs(x="X", y="Y") +
theme_new()


# Convert the plot to a grob
gt <- ggplotGrob(p)

# Get the position of the panel in the layout
panel <-c(subset(gt$layout, name=="panel", se=t:r))

## For the bottom axis
# Get the row number of the bottom axis in the layout
rn <- which(gt$layout$name == "axis-b")

# Extract the axis (tick marks only)
axis.grob <- gt$grobs[[rn]]
axisb <- axis.grob$children[[2]] # Two children - get the second
axisb # Note: two grobs - tick marks and text

# Get the tick marks
xaxis = axisb$grobs[[1]] # NOTE: tick marks first
xaxis$y = xaxis$y - unit(0.25, "cm") # Position them inside the panel

# Add a new row to gt, and insert the revised xaxis grob into the new row.
gt <- gtable_add_rows(gt, unit(0, "lines"), panel$t-1)
gt <- gtable_add_grob(gt, xaxis, l = panel$l, t = panel$t, r = panel$r, name = "ticks")

## Repeat for the left axis
# Get the row number of the left axis in the layout
panel <-c(subset(gt$layout, name=="panel", se=t:r))
rn <- which(gt$layout$name == "axis-l")

# Extract the axis (tick marks and axis text)
axis.grob <- gt$grobs[[rn]]
axisl <- axis.grob$children[[2]] # Two children - get the second
axisl # Note: two grobs - text and tick marks

# Get the tick marks
yaxis = axisl$grobs[[2]] # NOTE: tick marks second
yaxis$x = yaxis$x - unit(0.25, "cm") # Position them inside the panel

# Add a new column to gt, and insert the revised yaxis grob into the new column.
gt <- gtable_add_cols(gt, unit(0, "lines"), panel$r)
gt <- gtable_add_grob(gt, yaxis, t = panel$t, l = panel$r+1, name = "ticks")

# Turn clipping off
gt$layout[gt$layout$name == "ticks", ]$clip = "off"

# Draw it
grid.draw(gt)

enter image description here

关于r - 如何在 ggplot2 中将刻度添加到图形的顶部和右侧,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/29848169/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com