Para este ejempo usaremos los siguientes paquetes:

library(agricolae)
library(desplot)

Com ejemplo usaremos el data melon de agricolae

data("melon")
kable(melon)
row col variety yield
1 1 V1 45
1 2 V4 29
1 3 V2 37
1 4 V3 38
2 1 V2 50
2 2 V3 53
2 3 V4 41
2 4 V1 40
3 1 V3 43
3 2 V2 41
3 3 V1 41
3 4 V4 35
4 1 V4 35
4 2 V1 63
4 3 V3 63
4 4 V2 41

Este fue Una evaluación del sistema de riego por exudación utilizando cuatro variedades de melón, bajo la modalidad de siembra, FILA SIMPLE. El objetivo es analizar el comportamiento de tres variedades híbridas de melón y un estándar.

Graficamos

Una vez se termine el experimento es posible visualizar los resultados de la siguiente manera

desplot(melon, yield ~ col+row, 
        main = "Resultados diseño experimetal de 4 variedades de Melon",
                out1 = variety, cex = 1.5, show.key = F, text = variety, flip = T, ticks = T
)

LS0tDQp0aXRsZTogIkdyYWZpY2FuZG8gZGlzZcOxb3MgZXhwZXJpbWVudGFsZXMgYWdyaWNvbGFzIg0KYXV0aG9yOiAiRGFuaWVsIEFsdmFyYWRvIg0KZGF0ZTogImByIGZvcm1hdChTeXMudGltZSgpLCAnJWQvJW0sICVZJylgIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KUGFyYSBlc3RlIGVqZW1wbyB1c2FyZW1vcyBsb3Mgc2lndWllbnRlcyBwYXF1ZXRlczoNCg0KYGBge3J9DQpsaWJyYXJ5KGFncmljb2xhZSkNCmxpYnJhcnkoZGVzcGxvdCkNCmBgYA0KDQpDb20gZWplbXBsbyB1c2FyZW1vcyBlbCBkYXRhICoqbWVsb24qKiBkZSAqYWdyaWNvbGFlKg0KDQpgYGB7cn0NCmRhdGEoIm1lbG9uIikNCmthYmxlKG1lbG9uKQ0KYGBgDQoNCkVzdGUgZnVlIFVuYSBldmFsdWFjacOzbiBkZWwgc2lzdGVtYSBkZSByaWVnbyBwb3IgZXh1ZGFjacOzbiB1dGlsaXphbmRvIGN1YXRybyB2YXJpZWRhZGVzIGRlIG1lbMOzbiwgYmFqbyBsYSBtb2RhbGlkYWQgZGUgc2llbWJyYSwgRklMQSBTSU1QTEUuIEVsIG9iamV0aXZvIGVzIGFuYWxpemFyIGVsIGNvbXBvcnRhbWllbnRvIGRlIHRyZXMgdmFyaWVkYWRlcyBow61icmlkYXMgZGUgbWVsw7NuIHkgdW4gZXN0w6FuZGFyLg0KDQojIyMgR3JhZmljYW1vcw0KDQoNCmBgYHtyfQ0KZGVzcGxvdChtZWxvbiwgdmFyaWV0eSB+IGNvbCtyb3csIA0KICAgICAgICBtYWluID0gIkRpc2XDsW8gZXhwZXJpbWV0YWwgZGUgNCB2YXJpZWRhZGVzIGRlIE1lbG9uIiwNCiAgICAgICAgY29sLnJlZ2lvbnMgPSBjKCJiaXNxdWUyIiwgImNvcmFsIiwgImNvcm5zaWxrMyIsInNreWJsdWUiKSwNCiAgICAgICAgb3V0MSA9IHZhcmlldHksIGNleCA9IDEuNSwgc2hvdy5rZXkgPSBGLCB0ZXh0ID0gdmFyaWV0eSwgZmxpcCA9IFQsIHRpY2tzID0gVA0KKQ0KYGBgDQoNCg0KVW5hIHZleiBzZSB0ZXJtaW5lIGVsIGV4cGVyaW1lbnRvIGVzIHBvc2libGUgdmlzdWFsaXphciBsb3MgcmVzdWx0YWRvcyBkZSBsYSBzaWd1aWVudGUgbWFuZXJhDQoNCg0KDQpgYGB7cn0NCmRlc3Bsb3QobWVsb24sIHlpZWxkIH4gY29sK3JvdywgDQogICAgICAgIG1haW4gPSAiUmVzdWx0YWRvcyBkaXNlw7FvIGV4cGVyaW1ldGFsIGRlIDQgdmFyaWVkYWRlcyBkZSBNZWxvbiIsDQogICAgICAgICAgICAgICAgb3V0MSA9IHZhcmlldHksIGNleCA9IDEuNSwgc2hvdy5rZXkgPSBGLCB0ZXh0ID0gdmFyaWV0eSwgZmxpcCA9IFQsIHRpY2tzID0gVA0KKQ0KYGBgDQoNCg==