1 | Profile.Chart(df, ba.name)
|
df |
|
ba.name |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (df, ba.name)
{
library(scales)
x.title = paste("Öåíà áàçèñíîãî àêòèâà, ", ba.name, sep = "")
g = ggplot(data = df, aes(x = ba, y = pr)) + geom_line(size = 1.2,
color = rgb(red = 148, green = 0, blue = 98, maxColorValue = 255)) +
labs(x = x.title, y = "Äîõîäíîñòü, %") + theme(axis.text = element_text(colour = "black")) +
scale_y_continuous(labels = percent)
return(g)
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.