Need help in R Visual

[prateekraina]

Hi Everyone,

I am in process of creatiing a R Visual in which i need to change color of line above threshold.
So far, i have written below script to genrate the visual uploaded below. Can someone help me to get my desired result i.e If my threshold is breahed/surpassed, color of line should change.

If this can be achived using traditional Power BI visuals then that suggestion is also welcome.
Here is my code and visual created so far.

plot(dataset$Temperature,type="l",lwd=2,
xaxt="n",col="blue",
xlab="Date",ylab="Temperature",
main="Demo Chart")
axis(1,at=1:length(dataset$Date),labels=dataset$Date)
abline(h=dataset$TargetTemperature,col="red")

Edit 1: Sorry for tagging you guys. Kindly help if anybody knows.

@Greg_Deckler

@MarcelBeug

@Vvelarde

@Phil_Seamark

@MFelix

@v-haibl-msft
@v-huizhn-msft
@Seth_C_Bauer