R выборочно стиль оси участок этикетки

Question

Я в настоящее время имеют следующий R-код, и было интересно, если его можно выборочно полужирный/наклонным/применять другие стили меток на оси

> w1 <- read.csv(file="test1.csv",sep=",", head=TRUE) 
> w1$Commits <- w1$normal + w1$merges 
> w1 
     Commits normal merges 
John   4  3  1 
Sarah  19  13  6 
Zach   3  3  0 
Jacob  27  24  3 
> titles <- w1$merges/w1$Commits 
> titles <- sprintf("%s%%", format(round(titles * 100), 1)) 
> bp <- barplot(rbind(w1$normal, w1$merges), main="Playing with R", xlab="Who", names.arg=rownames(w1), col=c("blue", "red"), ylim = c(0,30)) 
> text(bp, rbind(w1$Commits), labels = titles, pos = 3, cex = 0.75) 

Это производит хорошее BarChart (Я мог бы, вероятно, использовать% d вместо формата, но это не важно), именно так, как я этого хочу, однако я также хочу, чтобы у вас был список имен в списке, так что внизу я могу, например, увидеть этикеты:

John Sarah Zach Jacob

Есть ли способ применить стили к этим ярлыкам? Или какой-то другой способ отметить некоторые бары как разные (серый фон и т. Д.)?

Answer 1

bp <- barplot(rbind(w1$normal, w1$merges), 
      main="Playing with R", xlab="Who", names.arg=rep("",4), 
      col=c("blue", "red"), ylim = c(0,30)) 
text(bp, rbind(w1$Commits), labels = titles, pos = 3, cex = 0.75) 
axis(1, at=bp, labels= parse(text= 
        gsub("\\s", '~', paste0(c("bold(", "", "italic(", ""), 
              rownames(w1), 
              c( ")", "",  ")", "") 
         )    ) 
      )   ) 

Это кажется довольно запутанно, но вы должны иметь, кажется, мои неудавшиеся попытки сделать вектор экспрессии длиной 4 с expression, bquote и substitute.

Answer 2

Вот подход, использующий bquote (и do.call)

# the order in which you want the "bolding" 
xx <- expression(bold(.(x)), italic(.(x)), .(x), .(x)) 
# a list of lists containing the information for bquote 
xL <- lapply(rownames(w1), function(x) list(x=x)) 
# using Map and do.call and as.expression to create the list of expressions 
labs <- as.expression(Map(function(expr,where) {do.call(bquote, list(expr,where))}, 
    expr = xx, where =xL)) 

bp <- barplot(rbind(w1$normal, w1$merges), 
     main="Playing with R", xlab="Who", names.arg=rep("",4), 
     col=c("blue", "red"), ylim = c(0,30)) 
text(bp, rbind(w1$Commits), labels = titles, pos = 3, cex = 0.75) 
axis(1, at=bp, labels= labs) 

Или так же с помощью substitute

xs <- expression(bold(x), italic(x), x, x) 
labs <- Map(function(expr,where) {do.call(substitute, list(expr,where))}, expr = xs, where =xL)