R+Stata自动调整散点图标签

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

R+Stata自动调整散点图标签

我们经常在画散点图时需要标示出散点标签，但总是遇到标签重叠的情况，Stata需要手动调整标签位置，很费时间，查了Stata相关命令，目前Stata似乎也没有很好的解决方案，有时间的时候，我会尝试写一个自动调整标签的Stata命令。

幸运的是，R中已经有人开发了ggrepel包，可以自动调整标签位置，所以我们可以使用R和Stata交互命令rcall来实现标签位置的自动调整。

sysuse auto,clear
keep  if _n<35

rcall:library(ggplot2)
rcall:library(ggrepel)
rcall:library(ggthemes)

rcall:data <- st.data()
rcall:a <- ggplot(data,aes(price, mpg)) + ///
           geom_point(aes(price, mpg), color="red")+ ///
           geom_text_repel(aes(price, mpg, label=make))+ ///
           geom_smooth(method="auto",se=FALSE) + ///
           theme_gray(base_size = 16)
rcall:ggsave("/Applications/Stata17/ado/personal/Raymond/scatter.pdf",plot=a)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Stata tata 散点图 stata命令 call

期待！