Thêm văn bản vào ggplot

Question

(cập nhật) Tôi đã ggplot như thế này, nhưng sau đó ngày x trục quy mô:

g1 <- ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() 

Trên hai thanh (cho phép sayVS2 và IF, nhưng trong đồ thị của tôi nó là một ngày) Tôi muốn đặt một nhãn văn bản trên các thanh tại heigt 13.000.

Tôi đã thử rất nhiều thứ, nhưng đây là điều gần nhất: Đây là những gì tôi đã thử trong biểu đồ của mình với trục Ngày g1 + geom_text (aes (as.Date ("2014-10-05") , 13000), label = "thuyền")

nhưng điều này chỉ có một thêm vào đồ thị và ngay sau khi tôi cố gắng để mở rộng nó, ví dụ với

g1 + geom_text(aes(c(as.Date("2014-10-05"),as.Date("2014-10-20")) , 13000), label=c("boat", "train")) 

sau đó tôi nhận được lỗi:

Error: Aesthetics must either be length one, or the same length as the dataProblems:c(as.Date("2014-10-05"), as.Date("2014-10-20"))

Tôi cũng đã cố gắng để đọc các văn bản và nhãn từ một dataframe (oefen), nơi mà tôi đã sử dụng tên giống như cốt truyện gốc

g1 + geom_text(data=oefen, aes(x=newdat, y=Number, label=oefen$labs, fill=1)) 

tôi nhận được lỗi

Error: Continuous value supplied to discrete scale

tôi đã cố gắng rất nhiều giải pháp khác , nhưng không thể tìm thấy câu trả lời. Tôi đang thiếu gì?

Answer 1

Cân nhắc sử dụng annotate() để đặt bất kỳ văn bản nào bạn muốn tại vị trí nhất định trên ô. Các yếu tố biến, như trong yếu tố rõ ràng trên trục x, có một số cho mỗi cấp độ, vì vậy bạn có thể sử dụng số đó để xác định vị trí văn bản. Tôi giả sử biến ngày có việc sử dụng cùng một .:

ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() + 
    annotate("text", x=8, y=13000, label= "boat") + 
    annotate("text", x = 4, y=13000, label = "ship") 

EDIT sau COMMENT

Đối với hiệu quả, bạn có thể kết hợp các chú thích, như thế này:

ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar() + 
    annotate("text", x = c(2,4,6,8), y=13000, label = c("two", "ship", "six", "boat"))