Gráfico de densidad escalada/ponderada en R

Question

Quiero generar un gráfico de densidad de las temperaturas observadas que se escala por el número de eventos observados para cada punto de datos de temperatura. Mis datos contienen dos columnas: temperatura y número [de observaciones].

En este momento, tengo una gráfica de densidad que sólo incorpora la frecuencia de la temperatura en función de:

plot(density(Temperature, na.rm=T), type="l", bty="n") 

¿Cómo escalo esta densidad para tener en cuenta el número de observaciones en cada temperatura? Por ejemplo, quiero poder ver el gráfico de densidad de temperatura a escala para mostrar si hay más/menos observaciones para cada temperatura a temperaturas más altas/más bajas.

Creo que estoy buscando algo que pueda pesar las temperaturas?

Answer 1

Y para hacer esto en la base (utilizando datos de DanM):

plot(density(dat$Temperature,weights=dat$Number/sum(dat$Number),na.rm=T),type='l',bty='n') 

Answer 2

Creo que puede obtener lo que desea pasando un argumento weights al density. He aquí un ejemplo usando ggplot

dat <- data.frame(Temperature = sort(runif(10)), Number = 1:10) 
ggplot(dat, aes(Temperature)) + geom_density(aes(weights=Number/sum(Number)))