R 用ggplot创建经济图

为了写我的经济学论文，我需要创建一些图表来显示潜在过程的直觉。一个简单的例子是底部链接的图形。注意图中强调一点的虚线

我将如何在ggplot中复制此图，以及

• 垂直和水平虚线
• 虚线相交的圆形截取点
• 轴上的Q和NIR标签

要给出图形示例，请执行以下操作：

x <- c(10:100)
y <- 1/x
data <- data.frame(x, y)

ggplot(data, aes(x, y)) + geom_line()

---

x您可以指定数据的子集，即您的2个所需点到
geom_点
，这里我使用c（25,50）

使用
geom_段
为子集点创建虚线

使用
scale\u x\u continuous
和
scale\u y\u continuous
创建轴标签

使用
theme
更改绘图主题元素

# Create geom_point and geom_segments
gg1 <- ggplot(data, aes(x, y)) + geom_line(lwd=2) +
  geom_point(data=data[data$x %in% c(25, 50),], aes(x, y), pch=16, size=5) +
  geom_segment(data=data[data$x %in% c(25, 50),], aes(x=x, xend=x, y=0, yend=y), lty=2, lwd=1) +
  geom_segment(data=data[data$x %in% c(25, 50),], aes(x=0, xend=x, y=y, yend=y), lty=2, lwd=1)

gg1

# Define new labels
x_label <- NA
x_label[! x %in% c(25, 50)] <- ""
x_label[x %in% c(25, 50)] <- c("Q", "Q1")
y_label <- NA
y_label[! x %in% c(25, 50)] <- ""
y_label[x %in% c(25, 50)] <- c("NIR", "NIR1")

gg2 <- gg1 + scale_x_continuous(breaks=x, labels=x_label) +
  scale_y_continuous(breaks=y, labels=y_label)

gg2


# Add axis labels, change theme elements, remove ticks and grid lines
gg3 <- gg2 + xlab("Quantity of Investment") +
ylab("Norminal Interest Rate") +
theme_bw() +
theme(panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  axis.ticks = element_blank(),
  axis.title = element_text(size=16),
  axis.text = element_text(size=14)) 

gg3

#创建几何点和几何线段
请提供样品数据。请参阅以供参考。这些图表的数据我通常只是编出来的，因为它不是关于数据的，只是直觉。所以说x，请回顾一下。到目前为止，你做了哪些尝试？在你的问题的方向上，必须表现出最小的努力。