Допустим, у меня есть эти простые данные:

 mydata <- data.frame(group=c("A", "B", "0", "AB"), FR=c(20, 32, 32, 16))

Если я хочу создать круговую диаграмму из этого кадра данных, я могу сделать:

 with(mydata,pie(FR, labels=paste0(as.character(group), " ", FR, "%"), radius=1))

Это довольно просто, но приемлемо.

Как я могу получить что-то похожее с ggplot2 или решеткой?

После долгих проб и ошибок у меня есть

ggplot(mydata, aes(x = factor(1), y=FR,fill=factor(group)) ) + geom_bar(width = 1,stat="identity")+coord_polar(theta = "y") 

Это намного сложнее и уродливее. Разве это не должно быть легко? Книги ggplot приводят только некоторые примеры и не рекомендуют использовать круговые диаграммы.

Решетка еще хуже, вам нужно много строк, чтобы она пугала.

Может ли кто-нибудь помочь мне получить хорошую и простую круговую диаграмму, пожалуйста? Например что-то вроде ...

Разве нет пакета R, способного сделать это легко, без 20 строк кода?