使用ggplot創建經濟圖表

Question

爲了編寫我的經濟學論文，我需要創建顯示基礎過程直觀的圖表。一個簡單的例子是底部鏈接的圖。注意強調圖上一個點的虛線。

如何其中虛線滿足

Q和NIR標籤在軸上我會複製這個圖中ggplot，與

垂直和水平虛線
• ，
• 全面攔截點？

爲了讓圖的一個例子：

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

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

比方說，我要表示點（25，0.04），如示例圖表來完成。我會怎麼做？

economics graphs

Answer 1

您可以指定數據的一個子集 - 即你所期望的2分geom_point，這裏我用C（25,50）

使用geom_segment創建虛線的子集化的點

使用scale_x_continuous和scale_y_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