Scatterplot：顏色和斜體軸標籤

Question

in R scatterplot我想賦予Y軸標籤顏色並使其成爲粗體，其他部分爲斜體。我來自一個非常簡單的繪圖腳本，這裏的一切是做開始，除了使字體加粗，斜體，給它一個顏色：

png("test.png", height=800, width=600, pointsize=15) 
par(mar=c(5,12,.25,1)) 
textA=seq(0,100,25) 
textB=c("start","intermediate1","intermediate2","intermediate3","stop") 
plot(c(0,runif(8),1),c(0,runif(8),1),axes=F,ylab=NA) 
axis(1) 
axis(2, at=seq(0,1,.25), labels=paste(textA,"-",textB,sep=""),las=2,cex.axis=1.5) 
dev.off() 

問：我怎樣才能讓TEXTA大膽和彩色（紅）和同時使textB只是斜體，而不是粗體，標準顏色（黑色）。

非常感謝。

Answer 1

我會用axis兩個textA和textB，然後玩弄line，直到你有可接受的間距。

編輯：我不知道如何在一個標籤內有不同的顏色和字體。作爲一種解決方法，您可以使用帶變量x位置的text將兩個文本緊密放在一起。如果調整窗口大小，則可能需要調整偏移量。

par(mar=c(5,13,.25,1)) 
textA=seq(0,100,25) 
textB=c("start","intermediate1","intermediate2","intermediate3","stop") 
plot(c(0,runif(8),1),c(0,runif(8),1),axes=F,ylab=NA) 
axis(1) 

# add textA and textB 
axis(2, at=seq(0,1,.25), labels=textB, font=3, col.axis=1,las=2,cex.axis=1.5, line=1) 
text(x=c(-0.3,-0.55,-0.55,-0.55,-0.3), y=seq(0,1,.25), textA, xpd=NA, col=2, font=2, cex=1.5) 

# check which offset we need for textA: 
# abline(v=seq(-1,0,.1), xpd=NA, col=2) 
# text(,x=seq(-1,0,.1),y=rep(0,11),labels=seq(-1,0,.1),xpd=NA) 

Answer 2

我會做到這一點與ggplot2如下：

# create a dataframe 
x <- c(0,runif(8),1) 
y <- c(0,runif(8),1) 
df <- as.data.frame(cbind(x, y)) 

# loading ggplot2 package 
require(ggplot2) 

# creating the plot 
ggplot(df, aes(x=x, y=y)) + 
    geom_point(shape = 21, size = 4) + 
    scale_x_continuous("x-axis-label") + 
    scale_y_continuous("", breaks=c(0,0.25,0.50,0.75,1.00), 
        labels=c("start","intermediate1","intermediate2","intermediate3","stop")) + 
    theme_classic() + 
    theme(axis.text.x = element_text(size=14, face="italic"), 
     axis.text.y = element_text(size=14, colour = "red", face="bold"), 
     axis.title.x = element_text(vjust=-1)) 

結果：