cách thay đổi nhãn strip.text trong ggplot với mặt và lề = TRUE

Question

Tôi đã xem here nhưng vẫn không thể tìm ra. Làm thế nào để thay đổi các nhãn strip.text.x trong một ggplot với faceting? Cụ thể là tôi đang sử dụng facet_grid với lề. Nhãn strip.text cho lề là "(tất cả)" - nhưng kể từ khi tôi ở một nước nói tiếng Anh, tôi thà viết "Total" hoặc một cái gì đó tương tự trong tiếng mẹ đẻ của tôi.

opts(stip.text.x=c(levels(facetvariabel,"Total")) does not work. 

Bất kỳ ý tưởng nào?

Ví dụ (không thực sự là bộ dữ liệu tốt nhất cho điều này - nhưng tôi đoán nó sẽ làm việc)

ggplot(cars, aes(x=dist))+geom_bar()+facet_grid(.~speed, margin=T) 

Answer 1

Bạn có thể tùy chỉnh các nhãn khía cạnh bằng cách cho chức năng -máy dán nhãn:

f <- function(x, y) { 
    if (x == "speed") 
    c(y[-length(y)], "Total") 
    else 
    y 
} 

ggplot(cars, aes(x = dist)) + 
    geom_bar() + 
    facet_grid(. ~ speed, margin = TRUE, labeller = f)