Cauchy.R

##Cauchy-mitggplot

# Cauchy-Verteilung
library(ggplot2)
library(dplyr)

## 
## Attache Paket: 'dplyr'

## Die folgenden Objekte sind maskiert von 'package:stats':
## 
##     filter, lag

## Die folgenden Objekte sind maskiert von 'package:base':
## 
##     intersect, setdiff, setequal, union

# Datengenerierung
x <- seq(-8, 8, 1/10000)
df <- data.frame(x = rep(x, 2),
                 y = c(dcauchy(x, 0, sqrt(2)/2),
                       dnorm(x, 0, 1, log = F)),
                 distribution = rep(c("Cauchyprior", "Normalprior"), each = length(x)))

# Plot
Cauchyplot <- ggplot(df, aes(x=x, y=y, col=distribution)) + 
  geom_line(lwd = 1.5) +
  scale_color_manual(values=c("red","blue")) +
  theme(panel.grid.major=element_blank(),
        panel.grid.minor=element_blank(),
        panel.background = element_rect(fill = "white"),
        panel.border = element_rect(colour = "black", fill=NA, linewidth=0.75),
        legend.position = c(0.5,0.875))+
  scale_x_continuous(limits = c(-8,8))+
  scale_y_continuous(expand = expansion(mult = c(.005, .4)))+
  labs(x = expression(paste("Effektstärke", ~ delta)),
       y = "Wahrscheinlichkeitsdichte") +
  theme(legend.title = element_blank())

## Warning: A numeric `legend.position` argument in `theme()` was deprecated in ggplot2
## 3.5.0.
## ℹ Please use the `legend.position.inside` argument of `theme()` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

plot(Cauchyplot)