Thay đổi truyền thuyết vị trí/hướng sử dụng opts() không có tác dụng

Question

Tạo kết quả âm mưu sau trong truyền thuyết được đặt thẳng đứng, bên phải, chứ không phải ở phía dưới theo chiều ngang như được chỉ ra trong các cuộc gọi đến opts():

dat <- data.frame(x = runif(10), y = runif(10), 
        grp = rep(letters[1:2],each = 5)) 

ggplot(data = dat, aes(x = x, y = y, colour = grp)) + 
    geom_point() + 
    opts(legend.position = "bottom", legend.direction = "horizontal") + 
    theme_bw() 

Làm cách nào để nhận chú thích ở vị trí chính xác?

Answer 1

Vấn đề là theme_bw() được đặt sau khi gọi tới opts() và đặt lại một số giá trị mặc định. Chỉ cần đặt theme_bw() trước opts():

ggplot(data = dat, aes(x = x, y = y, colour = grp)) + 
    geom_point() + 
    theme_bw() + 
    opts(legend.position = "bottom", legend.direction = "horizontal") 

Note: Kể từ phiên bản 0.9.2 opts đã replaced bởi theme:

theme(legend.position = "bottom", legend.direction = "horizontal")