ggplot2 - How can I color a line graph by grouping the variables in R? -


i have produced line graph looks this

generated using ggplot2

i have data set of 50 countries , gdp last 10 years.
sample data:

country variable value   china   y2007    3.55218e+12 usa     y2007    1.45000e+13 japan   y2007    4.51526e+12 uk      y2007    3.06301e+12 russia  y2007    1.29971e+12  canada  y2007    1.46498e+12 germany y2007    3.43995e+12  india   y2007    1.20107e+12 france  y2007    2.66311e+12 skorea  y2007    1.12268e+12

i generated line graph using code

gdp_lineplot = ggplot(data=gdp_linechart, aes(x=variable,y=value)) +    geom_line() +    scale_y_continuous(name = "gdp(usd in trillions)",                       breaks = c(0.0e+00,5.0e+12,1.0e+13,1.5e+13),                       labels = c(0,5,10,15)) +    scale_x_discrete(name = "years", labels = c(2007,"",2009,"",2011,"",2013,"",2015))

the idea make graph this. how can plot colors

i tried adding

group=country, color = country

it outputs coloring countries.

how can color countries top 4 , rest?

ps: still naive r.

by plotting subsets, other groups aren't included in colour legend on right. alternative approach below manipulates factor levels , uses customized color scale overcome this.

preparing data

it assumed gdp_long contains data in long format. in line data shown op (gdp_lineplot, see data section below differences). manipulate factor levels, forcatspackage used (and data.table).

library(data.table) library(forcats) # coerce data.table, reorder factors values in last = actual year setdt(gdp_long)[, country := fct_reorder(country, -value, last)] # create new factor collapses countries "other" except top 4 countries gdp_long[, top_country := fct_other(country, keep = head(levels(country), 4))]

create plot

library(ggplot2) ggplot(gdp_long, aes(year, value/1e12, group = country, colour = top_country)) +    geom_point() + geom_line(size = 1) + theme_bw() + ylab("gdp(usd in trillions)") +   scale_colour_manual(name = "country",                        values = c("green3", "orange", "blue", "red", "grey"))

enter image description here

the chart quite similar expected result. lines of top 4 countries displayed in different colours while other countries displayed in grey appear in colour legend right.

note groupaesthetic still needed single line plotted each country while colour controlled levels of top_country.

data

the data set large reproduced here (even dput()). structure 

str(gdp_long) 'data.frame':   1763 obs. of  3 variables:  $ country: chr  "afghanistan" "albania" "algeria" "andorra" ...  $ year   : int  2007 2007 2007 2007 2007 2007 2007 2007 2007 2007 ...  $ value  : num  9.84e+09 1.07e+10 1.35e+11 4.01e+09 6.04e+10 ...

is similar op's data exception variable column converted integer column year. give nicely formatted x-axis without additional effort.


Comments

Post a Comment

Popular posts from this blog

How to understand 2 main() functions after using uftrace to profile the C++ program? -

i trying uftrace profile following simple c++ program: #include <iostream> class { public: a() {std::cout << "a created" << std::endl;} ~a() {std::cout << "a destroyed" << std::endl;} }; int main() { a; return 0; } the profile result this: # uftrace a.out created destroyed # duration tid function 2.026 [ 4828] | __cxa_atexit(); [ 4828] | main() { [ 4828] | __static_initialization_and_destruction_0() { 89.397 [ 4828] | std::ios_base::init::init(); 0.768 [ 4828] | __cxa_atexit(); 93.029 [ 4828] | } /* __static_initialization_and_destruction_0 */ 94.425 [ 4828] | } /* main */ [ 4828] | main() { [ 4828] | a::a() { 11.104 [ 4828] | std::operator <<(); 10.825 [ 4828] | std::basic_ostream::operator <<(); 24.514 [ 4828] | } /* a::a */ [ 4828] | a::~a() { 0.978 [ 4828] | ...
Read more

c# - Update a combobox from a presenter (MVP) -

i using mvp in project, new in mvp. have 2 comboboxes. when select option in combobox, combobox should filled new data. this action in presenter. view 'view1' in presenter, , introduced combobox1 , combobox2 properties in 'view1', because need 'datasource', 'displaymember', 'valuemember' , 'refresh()' in method below. but, when using pattern, enough send property like public string combobox2 { { return combobox1.selectedvalue.tosstring(); } } into presenter not whole combobox. how can solve problem? public void onselectedindexchangedcombobox1() { if (view1.combobox1.selectedindex == -1) { return; } datatable dt = tools.getdatatable("a path"); var query = (from o in dt.asenumerable() o.field<string>("afield") == farmerview.combobox1.selectedvalue.tostring() orderby o.field<string>("anotherfield") select...
Read more

How to put a lock and transaction on table using spring 4 or above using jdbcTemplate and annotations like @Transactional? -

i trying put lock on table while writing on table , if happened in between roll-back . trying convert below code lock table test_g1 read; lock table test_g write; -- begin; start transaction; insert test_g1 values(143); insert test_g values(145); select * test_g1; select * test_g; rollback; select * test_g; unlock tables; how convert above code @transactional spring jdbctemplate code? @transactional(rollbackfor={dataaccessexception.class}) public void test(){ jdbctemplate.execute("insert test1 (id, nam) values (4, 'a')"); throw new dataaccessexception("error") { }; } here trying throw error, insert statement should rollback it's not happening . thanks edit-1 attaching code , doing in jdbcdaoimpl.java , mentioned problem comment above test() . app.java package com.cgiri.javabrains.spring4; import org.springframework.beans.factory.annotation.autowired; import org.springframework.context.applic...
Read more