2017-12-04 6 views
0

< = xaxisラベルに正しく表示されようとしています。私はexpressionと以前の投稿を見てきました。これらの例では、明示的に(手動で)行われたラベルは1つしかありませんでした。私の場合、< =というラベルがいくつかあります。私はファイルから因子ラベルを読みました。は、ggplot2軸ラベルと同等です

faclab <- "value,label 
1,<= 1 
2,1 < ... <= 2 
3,2< ... <= 3 
4,>3" 
labels.dt <- fread(faclab) 

data <- data.table(value=sample(labels.dt[['value']],100,replace=TRUE)) 

ggplot(data, aes(factor(value))) + geom_bar(aes(y=(..count..)/sum(..count..))) + 
    scale_x_discrete(breaks=labels.dt[['value']], labels=labels.dt[['label']]) 

答えて

1

適切なUnicode文字"\u2264""≤")と"<="を交換:例えば

stringi::stri_replace_all_fixed(
    c("<= 1", ">= 2"), 
    c("<=", ">="), 
    c("\u2264", "\u2265"), 
    vectorize_all = F 
) 
# [1] "≤ 1" "≥ 2" 

library(tidyverse) 
library(data.table) 
faclab <- "value,label 
1,<= 1 
2,1 < ... <= 2 
3,2< ... <= 3 
4,>3" 
labels.dt <- fread(faclab) 
data <- data.table(value=sample(labels.dt[['value']],100,replace=TRUE)) 
ggplot(data, aes(factor(value))) + geom_bar(aes(y=(..count..)/sum(..count..))) + 
    scale_x_discrete(
    breaks=labels.dt[['value']], 
    labels=stringi::stri_replace_all_fixed(labels.dt[['label']], "<=", "\u2264") 
) 

enter image description here

関連する問題