¿Cómo ajustar el tamaño de la fuente del eje x usando R?

Usando el siguiente código R, hice un gráfico en R Studio. Como puede ver, solo se muestra parte de los textos debido al eje x. ¿Cómo puedo mostrar el término completo? Además, cuando trazo los datos, los datos se trazan con respecto al orden alfabético o numérico, no con respecto al orden en que defino los datos en la matriz. Entonces, como puede ver, agregué números del 0 al 9 al comienzo de los nombres de los textos del eje x.

library(plotly)
p<- plot_ly(
          x= c("0CI-37. Craft labor turnover", "1CI-35. Craft labor quality 
             issues", "2CI-2. Impact of required approvals",
            "3CI-26. Impact of project location", "4CI-4.  no. of joint- 
             venture entities",
            "5CI-32. Timinig of change orders", "6CI-31. Magnitude of change 
             orders", 
            "7CI-36. Frequency of workarounds", "8CI-5. no. of executive 
             oversight above PMT","9CI-14. Peak  no.of FTE design"),
           y= c(0.58, 5.81, 8.13, 9.88, 9.88, 8.13, 7.55, 5.81, 5.81, 0.58),
            type="bar",
            color= I("lightblue"),
        name="Contractor"
)
p

p2<- add_trace(p,
        x= c("0CI-37. Craft labor turnover", "1CI-35. Craft labor quality 
            issues", "2CI-2. Impact of required approvals", 
            "3CI-26. Impact of project location", "4CI-4.  no. of joint- 
             venture entities",
             "5CI-32. Timinig of change orders", "6CI-31. Magnitude of change 
             orders", 
             "7CI-36. Frequency of workarounds", "8CI-5. no. of executive 
             oversight above PMT","9CI-14. Peak  no.of FTE design"),
        y= c(13.01, 8.28, 10.65, 10.65, 5.91, 4.14, 7.1, 6.5, 5.32, 1.77),
           color= I("lightgreen"),
           name="Owner"
)
p2

p3<- add_trace(p2,
           x= c("0CI-37. Craft labor turnover", "1CI-35. Craft labor quality 
                 issues", "2CI-2. Impact of required approvals", 
                "3CI-26. Impact of project location", "4CI-4.  no. of joint- 
                 venture entities",
                "5CI-32. Timinig of change orders", "6CI-31. Magnitude of 
                 change orders", 
                "7CI-36. Frequency of workarounds", "8CI-5. no. of executive 
                 oversight above PMT","9CI-14. Peak  no.of FTE design"),
           y= c(4.73, 11.83, 5.91, 4.73, 2.95, 4.14, 3.55, 1.77, 4.73, 2.36),
                 color= I("orange"),
                name="Consultant"
)
p3