具体代码如下所示，
还有一个问题是，在如下代码的基础上如何进行修改，能改变红色方框内文字的大小？
在此先谢过啦^_^
- # Balance Plots
- d<- rbind(bal.nm,bal.maha,bal.gm,bal.psm,bal.psw,bal.eb)
- dn <- rownames(d)
- d<- data.frame(d)
- d$vname <- factor(dn,levels = unique(dn)[length(unique(dn)):1], labels = unique(dn)[length(unique(dn)):1])
- d$gr <- rep(c("Unadjusted","MahaDist Matching","Genetic Matching","PS Matching","PS Weighting","Entropy Balancing"),each=length(unique(dn)))
- d$gr <- factor(d$gr,levels=unique(d$gr)[1:length(unique(d$gr))],labels=unique(d$gr)[1:length(unique(d$gr))])
- mypal<-c("black",rep("darkgrey",4),"black")[6:1]
- Cex <- Cex2 <- 1
- # plot with SDs
- bplot <- function(x,y,...)
- {
- panel.abline(v=0, lwd = 1 , lty="solid")
- panel.abline(v=c(-.1,.1), lwd = 2 , lty="dotted")
- panel.abline(h=c(1:nrow(d)), lwd = 1 , lty="dashed", col="gray95")
- panel.xyplot(x,y,...)
- }
- print(
- xyplot(vname~round(sdiff.pooled/100,2),data=d,groups=gr,xlim=c(-.6,.6),
- panel = bplot
- ,par.settings = list(superpose.symbol = list(pch = c(15,19,17,18,15,1)[6:1],col=mypal,cex=0.75))
- ,xlab=list("standardized difference in means",cex=Cex),ylab="",auto.key=T,scales=list(y=list(cex=Cex),x=list(cex=Cex2,at=c(-.5,-.1,0,.1,.5),labels=c("-.5","-.1","0",".1",".5")))
- )
- )
|
熟悉论坛请点击新手指南
京公网安备 11010802022788号
论坛法律顾问：王进律师
知识产权保护声明
免责及隐私声明
