数据分析(axis.title.x = element_text(vjust

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

• <- ggplot(sdata, aes(x = time, y = 1-surv,group = strata, colour = strata)) +
  
•       geom_step(size = 1) +
  
•       scale_x_continuous(xlab, breaks = times, limits = c(0, max(times)), expand = c(0, 0)) +
  
•       scale_y_continuous(ylab, breaks=seq(0,1,by=0.2), limits=c(0,1),
  
•                          labels=c(as.character(seq(0,0.8,by=0.2)),"1.0"),expand = c(0, 0)) +
  
•       theme_classic() +
  
•       theme(axis.title.x = element_text(vjust = 0.5)) +
  
•       theme(panel.grid.minor = element_blank(http://lx.gongxuanwang.com/sszt/7.htm
• )) +
  
•       theme(legend.position = c(ifelse(m < 10, .28, .15), ifelse(d < 4, .75, .95))) +
  
•       theme(legend.key = element_rect(colour = NA)) +
  
•       ggtitle(tabletitle)+
  
•       geom_point(data = subset(sdata, n.censor != 0), aes(x = time, y = 1-surv), shape = 3)
  
•    
  
•   }else{
  
•     p <- ggplot(sdata, aes(x = time, y = surv,group = strata, colour = strata)) +
  
•       geom_step(size = 1) +http://lx.gongxuanwang.com/sszt/7.htm
• 
  
•       scale_x_continuous(xlab, breaks = times, limits = c(0, max(times)), expand = c(0, 0)) +
  
•       scale_y_continuous(ylab, breaks=seq(0,1,by=0.2), limits=c(0,1),
  
•                          labels=c(as.character(seq(0,0.8,by=0.2)),"1.0"),expa
  

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Element Title Text just 数据分析