I'm only seeing six dates, by the look of them five at one day intervals
and the last three days later. According to my calendar those were
weekdays in 2005. I don't see much "volatility" there and that's not a
term I'm familiar with, I suspect it's econometric. I don't know what
you're looking for and I think we're starting to get into issues about
interpretation of data not issues about using R so off list. I think
you need statistical or econometric support from somewhere.
Good luck!
Chris
On 02/05/2023 17:50, Upananda Pani wrote:
> Hi Chrish,
>
> I am grateful to you for your reply. Your code is working fine.
> Moreover, you have guided me how to improve my knowledge, I appreciate
> it. I will be very careful next time.
> The data which i am working on is given below:
>
> dput(head(data_vol3))
> structure(list(index = structure(c(12786, 12787, 12788, 12789,
> 12790, 12793), tzone = "UTC", tclass = "Date", class = "Date"),
> crepub = c(1.20601312, 1.176601845, 1.14945752, 1.112667506,
> 1.076184043, 1.042147848), finland = c(0.614973309, 0.615008409,
> 0.615034446, 0.615053761, 0.615068089, 0.615078717), france =
> c(1.896830857,
> 1.849908737, 1.807150091, 1.763296422, 1.719573044, 1.690600819
> ), germany = c(3.01041925, 2.892518667, 2.780918603, 2.672356826,
> 2.567306135, 2.479892045), italy = c(0.345659867, 0.345675874,
> 0.345686934, 0.345694578, 0.34569986, 0.34570351), netherlands =
> c(0.509263785,
> 0.509279495, 0.509289967, 0.509296947, 0.509301605, 0.509304705
> ), norway = c(1.052509528, 0.889357215, 0.784607722, 0.710551664,
> 0.661473027, 0.629951323), poland = c(1.127163733, 1.12432629,
> 1.087704091, 1.056705592, 1.024417693, 1.007962456), slovakia =
> c(0.715652234,
> 0.706087191, 0.706077173, 0.706104559, 0.70622666, 0.706098981
> ), slovenia = c(0.831886154, 0.831945994, 0.832003445, 0.832058602,
> 0.832111556, 0.832162397), uk = c(1.504813191, 1.463648326,
> 1.424235397, 1.38618692, 1.349628127, 1.318653737), usa = c(1.521675109,
> 1.488286869, 1.451778376, 1.418378195, 1.384742397, 1.363477506
> )), row.names = c(NA, -6L), class = c("tbl_df", "tbl", "data.frame"
> ))
>
> As there are some countries which are having higher volatilities than
> countries with lower, is there any suggestion to improve the graph?
>
> Looking forward to your suggestion in this regard.
>
> With sincere regards,
> Upananda Pani
>
>
> On Tue, May 2, 2023 at 6:14 PM Chris Evans<chrish...@psyctc.org> wrote:
>> I suspect that you have tried to pass your own data into the pivot_longer()
>> function and your data probably doesn't have the rowN variable.
>>
>> First try running the whole of what I sent you. It definitively works for
>> me. It gives me the attached graph.
>>
>> My code, using tribble() to read in the data you sent us, creates a rowN
>> variable to save me the trouble of deleting those row numbers one by one.
>> Then I drop that variable with that select(-rowN) line.
>>
>> Assuming that works for you running my code on that tiny dataset, and that
>> you are trying to use the code on your full data frame, called data_vol3
>> then try this:
>>
>> data_vol3 %>%
>> # select(-rowN) %>% # I have commented out this line
>> pivot_longer(cols = -index, # as you want to pivot the other
>> variables/columns
>> names_to = "countries") -> tibDataVol3Long
>>
>> ggplot(data = tibDataVol3Long,
>> aes(x = index, y = value, group = countries, colour = countries)) +
>> geom_line()
>>
>> This is a very good illustration of why you should supply data using
>> dput(data), dput(head(data)) if you have a large dataset. I know it doesn't
>> feel a very sympathetic piece of advice, but I think you need to spend some
>> days working on your understanding of R, ggplot and the tidyverse realm of
>> R. You can use ggplot() without using much of the tidyverse but they are
>> designed to complement each other and the more I understand of the tidyverse
>> way of doing things, the better I use ggplot().
>>
>> On 02/05/2023 13:44, Upananda Pani wrote:
>>
>> Hi Chris,
>>
>> Thank for your solutions and time. I am getting the following error
>> while trying to execute the code you suggested.
>>
>> Error in select(., -rowN) : unused argument (-rowN)
>>
>> Regards,
>> Upananda
>>
>> On Tue, May 2, 2023 at 3:08 PM Chris Evans via R-help
>> <r-help@r-project.org> wrote:
>>
>> It's not clear what you want but ...
>>
>> On 02/05/2023 10:57, Upananda Pani wrote:
>>
>> Dear All,
>>
>> I have a dataset which contains date and 12 other countries data. I
>> have extracted the data as xts object.
>>
>> I am not able to recall all the series in the Y axis. My data set
>> looks like this
>>
>> index crepub finland france germany italy netherlands norway poland
>> <date> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
>> 1 2005-01-03 1.21 0.615 1.90 3.01 0.346 0.509 1.05 1.13
>> 2 2005-01-04 1.18 0.615 1.85 2.89 0.346 0.509 0.889 1.12
>> 3 2005-01-05 1.15 0.615 1.81 2.78 0.346 0.509 0.785 1.09
>> 4 2005-01-06 1.11 0.615 1.76 2.67 0.346 0.509 0.711 1.06
>> 5 2005-01-07 1.08 0.615 1.72 2.57 0.346 0.509 0.661 1.02
>> 6 2005-01-10 1.04 0.615 1.69 2.48 0.346 0.509 0.630 1.01
>>
>> My code for the same is as follows
>>
>> ggplot(data=data_vol3, aes(x=index, y=data_vol3$usa)+
>> geom_line())
>>
>> Well you don't need to say that the y data are from data_vol3, your data
>> = declaration says that.
>>
>> I wonder if what you want is:
>>
>> library(tidyverse)
>>
>> tribble(
>> ~rowN, ~index, ~crepub, ~finland, ~france, ~germany, ~italy,
>> ~netherlands, ~norway, ~poland,
>> 1, "2005-01-03", 1.21, 0.615, 1.90, 3.01, 0.346, 0.509, 1.05, 1.13,
>> 2, "2005-01-04", 1.18, 0.615, 1.85, 2.89, 0.346, 0.509, 0.889, 1.12,
>> 3, "2005-01-05", 1.15, 0.615, 1.81, 2.78, 0.346, 0.509, 0.785, 1.09,
>> 4, "2005-01-06", 1.11, 0.615, 1.76, 2.67, 0.346, 0.509, 0.711, 1.06,
>> 5, "2005-01-07", 1.08, 0.615, 1.72, 2.57, 0.346, 0.509, 0.661, 1.02,
>> 6, "2005-01-10", 1.04, 0.615, 1.69, 2.48, 0.346, 0.509, 0.630, 1.01)
>> -> data_vol3
>>
>> ### please give us data using dput in future: saves us having to do
>> something like that to reclaim it!
>>
>> ### pivot that longer to make it easy to get country data as separate lines
>>
>> data_vol3 %>% select(-rowN) %>%
>> pivot_longer(cols = -index, # as you want to pivot the other
>> variables/columns
>> names_to = "countries") -> tibDataVol3Long
>>
>> ggplot(data = tibDataVol3Long,
>> aes(x = index, y = value,
>> ### now get the grouping and use it for a colour legend
>> group = countries, colour = countries)) +
>> geom_line()
>>
>> Any help in this regard will be highly appreciated
>>
>> With regards,
>> Upananda Pani
>>
>> ______________________________________________
>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide
>> http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>> --
>> Chris Evans (he/him)
>> Visiting Professor, UDLA, Quito, Ecuador & Honorary Professor,
>> University of Roehampton, London, UK.
>> Work web site:https://www.psyctc.org/psyctc/
>> CORE site:http://www.coresystemtrust.org.uk/
>> Personal site:https://www.psyctc.org/pelerinage2016/
>> Emeetings (Thursdays):
>> <https://www.psyctc.org/pelerinage2016/>https://www.psyctc.org/psyctc/booking-meetings-with-me/
>> (Beware: French time, generally an hour ahead of UK)
>> <https://ombook.psyctc.org/book>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guidehttp://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>> --
>> Chris Evans (he/him)
>> Visiting Professor, UDLA, Quito, Ecuador & Honorary Professor, University of
>> Roehampton, London, UK.
>> Work web site:https://www.psyctc.org/psyctc/
>> CORE site:http://www.coresystemtrust.org.uk/
>> Personal site:https://www.psyctc.org/pelerinage2016/
>> Emeetings (Thursdays):https://www.psyctc.org/psyctc/booking-meetings-with-me/
>> (Beware: French time, generally an hour ahead of UK)
--
Chris Evans (he/him)
Visiting Professor, UDLA, Quito, Ecuador & Honorary Professor,
University of Roehampton, London, UK.
Work web site: https://www.psyctc.org/psyctc/
CORE site: http://www.coresystemtrust.org.uk/
Personal site: https://www.psyctc.org/pelerinage2016/
Emeetings (Thursdays):
<https://www.psyctc.org/pelerinage2016/>https://www.psyctc.org/psyctc/booking-meetings-with-me/
(Beware: French time, generally an hour ahead of UK)
<https://ombook.psyctc.org/book>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
