У меня 2 недели использования RStudio (MacOS), поэтому, пожалуйста, прости меня, если я пропускаю очевидную функцию, которая решит мою проблему.
В качестве проекта я пытаюсь воспроизвести диаграмму в виде прямоугольника с 4 графиками, представляющими чистую выгоду, для данного типа заболевания - «несерьезный» (0) или «тяжелый» (1) - в качестве метки оси X, и данное лечение - «разговорная терапия» (0) или «лекарственная терапия» (1) - в качестве суб-метки оси X

Вот мой сценарий до сих пор:

tx <- c(0,0,0,0,1,1,1,1)
dztype <- c(1,0,1,0,0,0,1,1)
NBwtp1000 <- c(-5500,-4000,-5000,-1000,-5000,-5000,-2800,-2000)
require(lattice)
bwplot(NBwtp1000 ~ paste0("Tx ", tx) | paste0("Disease Severity ", dztype),
       xlab="Talk Therapy (Tx 0) or Drug Therapy (Tx 1)", 
       ylab="Net Benefit @ wtp 1000", horizontal=FALSE)

Если вы запустите код, вы увидите сюжет «я с усами»: я почти на месте благодаря некоторым информативным постам на этом форуме о решеткеbwplot функция.

Однако я все еще далек от того, чтобы получить результат. Я использовалpaste0 функция для добавления строковых дескрипторов к суб-меткам оси X для группы лечения (первоначально помеченной как «1,2» и теперь отображаемой как «Tx 0, Tx 1»), но в идеале я бы хотел, чтобы эти суб-метки говорили «Talk Therapy» и « Медикаментозная терапия »соответственно. (Я просто не знал, как покончить с существующими числовыми метками.)
Точно так же я хотел бы, чтобы на надписях на панели было написано «Несерьезный», где метка в настоящий момент равна 0, и «Сильный», где метка в данный момент равна 1.