Смещение t-распределения графика с помощью ggplot2

Question

Я пытаюсь построить график плотности t-распределения со средним значением = 3 и df = 1,5 с использованием ggplot2. Однако он должен быть симметричным вокруг 3, поэтому я не могу использовать параметр нецентральности.

ggplot(data.frame(x = c(-4, 10)), aes(x = x)) + 
stat_function(fun = dt, args = list(df = 1.5)) 

Есть ли способ просто сдвинуть распределение по оси х?

Answer 1

вы можете также сделать пользовательскую функцию для сдвинутой распределения Стьюдента:

custom <- function(x) {dt(x - 3, 1.5)} 
ggplot(data.frame(x = c(-4, 10)), aes(x = x)) + 
    stat_function(fun = custom) 

Answer 2

Простое решение является просто изменить ярлыки вместо:

ggplot(data.frame(x = c(-4, 10)), aes(x = x)) + 
    stat_function(fun = dt, args = list(df = 1.5)) + 
    scale_x_continuous(breaks = c(0, 5, 10), labels = c(3, 8, 13))