ぬりえルール

Question

私はadjustcolor("blue",alpha.f=0.05)に応じを着色するための私の凡例記号（四角）のを持っている可能性がどのように思っていました。

私は（無成功で）Rコード以下をしようとしている：

curve(dt(x,19),-5,5) 

legend("topright",legend=c(expression(paste("Power")),expression(paste(beta))), 
density=c(15,0),angle=140,fill=T,col=c(adjustcolor("blue",alpha.f=0.05),0)) 

Answer 1

はこれを試してみて、必要に応じて変更します。私は色をより明確にするためにalpha.f=.5を作った（.05は知覚するのが非常に低い）と、cex=1.5を追加して、すべての色をより明瞭に表示するようにした。

curve(dt(x,19),-5,5) 

legend("topright",legend=c(expression(paste("Power")),expression(paste(beta))), 
     ,fill=c(adjustcolor("blue",alpha.f=.5),"white"),density=c(NA,NA),angle=c(NA,NA), bg = NA, cex = 1.5) 

legend("topright",legend=c(expression(paste("Power")),expression(paste(beta))), 
     ,fill=c("black","white"),density=c(15,NA),angle=c(140,NA), bg = NA, cex =1.5)