Plot mit langer Beschriftung in Markdown

Programmierung und Formatierung von Grafiken und Plots mit R.

Plot mit langer Beschriftung in Markdown

Beitragvon tasel » Mi 3. Feb 2021, 19:04

Hallo zusammen,

ich versuche innerhalb eines Markdown files einen barplot zu erstellen, der sehr lange Namen beinhaltet (und ja die sind nötig). Beim knitten wird dann nicht der komplette Plot angezeigt. Ich kann nur auf den ganzen Plot zugreifen wenn ich ihn in der Konsole anzeigen lasse und dann zoome. Irgendwelche Ideen? Mir wären die Achsen wie in Variante 1 lieber, aber hauptsache es läuft.

R-Version 4.0.3 auf Windows 10

Vielen Dank

Code: Alles auswählen
---
title: "example"
output: html_document
editor_options:
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,fig.align = "center",warning = FALSE)

require('ggplot2')
require('tidyr')
require('forcats')
```

```{r getsomedata}
  lab='this is just a very long example text and it will be longer and longer and longer and longer and longer and longer and longer and longer and longer and longer'
  number=1:20
  n=unlist(lapply(number,paste,value=lab))
 
  values=round(runif(n=20,min=-48000,max=-40000))
```

```{r plot}
  d=data.frame(cbind(n,values))
  limits=c(as.numeric(min(d$values)),as.numeric(max(d$values)))
 
#VARIANTE 1
  a=ggplot(data=d,aes(fct_reorder(n,as.numeric(values)),as.numeric(values))) +
    geom_col(fill='white',color='red') +
    theme_bw() +
    theme(axis.text.x=element_text(angle=90),axis.title.x=element_text(face='bold')) +
    labs(x = "",y="Deviation") +
    ggtitle('just a title') +
    theme(plot.title = element_text(hjust = 0.5,size=20)) +
    coord_flip(ylim=limits)
  plot(a)

#VARIANTE 2
  b=ggplot(data=d,aes(fct_reorder(n,as.numeric(values)),as.numeric(values))) +
    geom_col(fill='white',color='red') +
    theme_bw() +
    theme(axis.text.x=element_text(angle=90),axis.title.x=element_text(face='bold')) +
    labs(x = "",y="Deviation") +
    ggtitle('just a title') +
    theme(plot.title = element_text(hjust = 0.5,size=20)) +
    ylim(limits)
  plot(b)
```
tasel
 
Beiträge: 1
Registriert: Mi 3. Feb 2021, 18:48
Danke gegeben: 0
Danke bekommen: 0 mal in 0 Post

Zurück zu Grafiken und Plots

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste

cron