使用ggplot创建经济图表

-2

为了编写我的经济学论文，我需要创建显示基础过程直观的图表。一个简单的例子是底部链接的图。注意强调图上一个点的虚线。使用ggplot创建经济图表

如何其中虚线满足

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

来源

2017-10-05 MightyMauz

请提供样本数据。请参阅[这里]（https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example）以供参考。 – www

这些图的数据我通常只是补充，因为它不是关于数据，只是直觉 – MightyMauz

所以说 x < - c（10：100），y < - 1/x，data < - data.frame（x， y），ggplot（data，aes（x，y））+ geom_line（） – MightyMauz

您可以指定数据的一个子集 - 即你所期望的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

来源

2017-10-05 02:37:50 Djork

使用ggplot创建经济图表

回答

相关问题