楼主: hanchunying
823 0

[作业] 图片问题 [推广有奖]

  • 0关注
  • 0粉丝

硕士生

32%

还不是VIP/贵宾

-

威望
0
论坛币
0 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
491 点
帖子
55
精华
0
在线时间
182 小时
注册时间
2020-11-30
最后登录
2023-11-7

楼主
hanchunying 发表于 2021-7-8 16:48:13 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
代码如下,想请教下,如何该,下面的图片可以和上面的图片一样
Ori.pic<-ggplot(data=Total,aes(x=Year,y=Rate))+geom_line(aes(color=type),size=0.25)+geom_point(aes(color=type,shape=type),size=1)+theme_linedraw()+theme(axis.title=element_text(size=6),axis.text.y=element_text(size=6),axis.text.x=element_text(size=6),legend.position="top",strip.text=element_text(size=6),legend.title=element_blank(),legend.text=element_text(size=6),panel.background=element_blank())+scale_y_continuous(name="年龄,年",breaks=23:27,sec.axis=sec_axis(~.*1,name="边际效应,年",breaks=23:27*1,label=format(c(23:27-25)/1,nsmall=1)))+scale_x_continuous(name="年份",breaks=seq(2013,2020),labels=seq(2013,2020),limits=c(2013,2020)),

f1cc57dd659fb0c840d37804c31b098.png


ba8e79a61aa7325dfc052011ea43cf5.png
二维码

扫码加我 拉你入群

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

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


您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-2-8 06:41