<p><div><div><div><div data-width="100" data-show-faces="false" data-send="true" data-layout="button_count" data-height="21" data-href="http://www.r-bloggers.com/time-series-charts-by-the-economist-in-r-using-plotly/"></div></div><div><a data-url="http://www.r-bloggers.com/time-series-charts-by-the-economist-in-r-using-plotly/" data-counturl="http://www.r-bloggers.com/time-series-charts-by-the-economist-in-r-using-plotly/" data-count="horizontal" data-text="Time series charts by the Economist in R using Plotly" class="twitter-share-button" data-via="rbloggers" href="https://twitter.com/share"></a></div><div></div></div><div></div></div>
<div>
(This article was first published on <strong><a href="http://moderndata.plot.ly/time-series-charts-by-the-economist-in-r-using-plotly/"> R – Modern Data</a></strong>, and kindly contributed to <a rel="nofollow" href="http://www.r-bloggers.com/">R-bloggers)</a> </div>
<p>In this post we’ll recreate two info graphics created by <a href="http://www.economist.com/blogs/graphicdetail"><b>The Economist</b></a>. The code uses the new <b>Plotly 4.0</b> syntax. </p>
<p><b>Note:</b> Plotly 4.0 has not been officially released yet. You can download the <em>dev version</em> using </p>
<pre>devtools::install_github(&quot;ropensci/plotly@fix/nse&quot;)</pre>

<h2>Volume of google searches related to immigrating to Canada</h2>

<pre>library(plotly)
library(zoo)

# Trends Data
trends &lt;- read.csv(&quot;https://cdn.rawgit.com/plotly/datasets/master/Move%20to%20Canada.csv&quot;, check.names = F, stringsAsFactors = F)
trends.zoo &lt;- zoo(trends[,-1], order.by = as.Date(trends[,1], format = &quot;%d/%m/%Y&quot;))
trends.zoo &lt;- aggregate(trends.zoo, as.yearmon, mean)

trends &lt;- data.frame(Date = index(trends.zoo),
                     coredata(trends.zoo))

# Immigration Data
immi &lt;- read.csv(&quot;https://cdn.rawgit.com/plotly/datasets/master/Canada%20Immigration.csv&quot;, stringsAsFactors = F)

labels &lt;- format(as.yearmon(trends$Date), &quot;%Y&quot;)
labels &lt;- as.character(sapply(labels, function(x){
  unlist(strsplit(x, &quot;20&quot;))[2]
}))

test &lt;- labels[1]
for(i in 2:length(labels)){
  if(labels[i] == test) {
    labels[i] &lt;- &quot;&quot;
  }else{
    test &lt;- labels[i]
  }
}
labels[1] &lt;- &quot;2004&quot;
hovertext1 &lt;- paste0(&quot;Date:&lt;b>&quot;, trends$Date, &quot;&lt;/b>&lt;br>&quot;,
                     &quot;From US:&lt;b>&quot;, trends$From.US, &quot;&lt;/b>&lt;br>&quot;)

hovertext2 &lt;- paste0(&quot;Date:&lt;b>&quot;, trends$Date, &quot;&lt;/b>&lt;br>&quot;,
                     &quot;From Britain:&lt;b>&quot;, trends$From.Britain, &quot;&lt;/b>&lt;br>&quot;)


p &lt;- plot_ly(data = trends, x = ~Date) %>%

  # Time series chart

  add_lines(y = ~From.US, line = list(color = &quot;#00526d&quot;, width = 4),
            hoverinfo = &quot;text&quot;, text = hovertext1, name = &quot;From US&quot;) %>%

  add_lines(y = ~From.Britain, line = list(color = &quot;#de6e6e&quot;, width = 4),
            hoverinfo = &quot;text&quot;, text = hovertext2, name = &quot;From Britain&quot;) %>%

  add_markers(x = c(as.yearmon(&quot;2004-11-01&quot;), as.yearmon(&quot;2016-03-01&quot;)),
              y = c(24, 44),
              marker = list(size = 15, color = &quot;#00526d&quot;),
              showlegend = F) %>%

  add_markers(x = c(as.yearmon(&quot;2008-07-01&quot;), as.yearmon(&quot;2016-07-01&quot;)),
              y = c(27, 45),
              marker = list(size = 15, color = &quot;#de6e6e&quot;),
              showlegend = F) %>%

  # Markers for legend
  add_markers(x = c(as.yearmon(&quot;2005-01-01&quot;), as.yearmon(&quot;2005-01-01&quot;)),
              y = c(40, 33.33),
              marker = list(size = 15, color = &quot;#00526d&quot;),
              showlegend = F) %>%

  add_markers(x = c(as.yearmon(&quot;2005-01-01&quot;), as.yearmon(&quot;2005-01-01&quot;)),
              y = c(36.67, 30),
              marker = list(size = 15, color = &quot;#de6e6e&quot;),
              showlegend = F) %>%

  add_text(x = c(as.yearmon(&quot;2004-11-01&quot;), as.yearmon(&quot;2016-03-01&quot;)),
           y = c(24, 44),
           text = c(&quot;&lt;b>1&lt;/b>&quot;, &quot;&lt;b>3&lt;/b>&quot;),
           textfont = list(color = &quot;white&quot;, size = 8),
           showlegend = F) %>%

  add_text(x = c(as.yearmon(&quot;2008-07-01&quot;), as.yearmon(&quot;2016-07-01&quot;)),
           y = c(27, 45),
           text = c(&quot;&lt;b>2&lt;/b>&quot;, &quot;&lt;b>4&lt;/b>&quot;),
           textfont = list(color = &quot;white&quot;, size = 8),
           showlegend = F) %>%

  # Text for legend
  add_text(x = c(as.yearmon(&quot;2005-01-01&quot;), as.yearmon(&quot;2005-01-01&quot;), as.yearmon(&quot;2005-01-01&quot;), as.yearmon(&quot;2005-01-01&quot;)),
           y = c(40, 36.67, 33.33, 30),
           text = c(&quot;&lt;b>1&lt;/b>&quot;, &quot;&lt;b>2&lt;/b>&quot;, &quot;&lt;b>3&lt;/b>&quot;, &quot;&lt;b>4&lt;/b>&quot;),
           textfont = list(color = &quot;white&quot;, size = 8),
           showlegend = F) %>%

  # Bar chart
  add_bars(data = immi, x = ~Year, y = ~USA, yaxis = &quot;y2&quot;, xaxis = &quot;x2&quot;, showlegend = F,
           marker = list(color = &quot;#00526d&quot;), name = &quot;USA&quot;) %>%

  add_bars(data = immi, x = ~Year, y = ~UK, yaxis = &quot;y2&quot;, xaxis = &quot;x2&quot;, showlegend = F,
           marker = list(color = &quot;#de6e6e&quot;), name = &quot;UK&quot;) %>%

  layout(legend = list(x = 0.8, y = 0.36, orientation = &quot;h&quot;, font = list(size = 10),
                       bgcolor = &quot;transparent&quot;),

         yaxis = list(domain = c(0.4, 0.95), side = &quot;right&quot;, title = &quot;&quot;, ticklen = 0,
                      gridwidth = 2),

         xaxis = list(showgrid = F, ticklen = 4, nticks = 100,
                      ticks = &quot;outside&quot;,
                      tickmode = &quot;array&quot;,
                      tickvals = trends$Date,
                      ticktext = labels,
                      tickangle = 0,
                      title = &quot;&quot;),

         yaxis2 = list(domain = c(0, 0.3), gridwidth = 2, side = &quot;right&quot;),
         xaxis2 = list(anchor = &quot;free&quot;, position = 0),

         # Annotations
         annotations = list(
           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0, y = 1, showarrow = F,
                text = &quot;&lt;b>Your home and native land?&lt;/b>&quot;,
                font = list(size = 18, family = &quot;Balto&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0, y = 0.95, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>Google search volume for &lt;i>'Move to Canada'&lt;/i>&lt;/b>&lt;br>&lt;sup>100 is peak volume&lt;br>&lt;b>Note&lt;/b> that monthly averages are used&lt;/sup>&quot;,
                font = list(size = 13, family = &quot;Arial&quot;)),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = as.yearmon(&quot;2005-03-01&quot;), y = 40, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>George W. Bush is re-elected&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;),
                bgcolor = &quot;white&quot;),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = as.yearmon(&quot;2005-03-01&quot;), y = 36.67, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>Canadian minister visits Britain, ecourages skilled workers to move&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;),
                bgcolor = &quot;white&quot;),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = as.yearmon(&quot;2005-03-01&quot;), y = 33.33, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>Super tuesday: Donald Trump wins 7 out of 11 republican primaries&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;),
                bgcolor = &quot;white&quot;),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = as.yearmon(&quot;2005-03-01&quot;), y = 30, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>Britain votes 52-48% to leave the Europen Union&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;),
                bgcolor = &quot;white&quot;),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0, y = 0.3, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>Annual immigration to Canada&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0, y = -0.07, showarrow = F,
                align = &quot;left&quot;,
                text = &quot;&lt;b>Source:&lt;/b> Google trends and national statistics&quot;,
                font = list(size = 12, family = &quot;Arial&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0.85, y = 0.98, showarrow = F,
                align = &quot;left&quot;,
                text = 'Inspired by &lt;a href = &quot;http://www.economist.com/blogs/graphicdetail/2016/07/daily-chart&quot;>The economist&lt;/a>',
                font = list(size = 12, family = &quot;Arial&quot;))),

         paper_bgcolor = &quot;#f2f2f2&quot;,
         margin = list(l = 18, r = 30, t = 18),
         width = 1024,height = 600)

print(p)</pre>
<p><iframe height="600" width="1024" src="https://plot.ly/~riddhiman/369.embed"></iframe></p>
<h2>AIDS related Visualization</h2>

<pre>library(plotly)
library(zoo)
library(tidyr)
library(dplyr)

# Aids Data
df &lt;- read.csv(&quot;https://cdn.rawgit.com/plotly/datasets/master/Aids%20Data.csv&quot;, stringsAsFactors = F)

# AIDS Related Deaths ####
plot.df &lt;- df %>%
  filter(Indicator == &quot;AIDS-related deaths&quot;) %>%
  filter(Subgroup %in% c(&quot;All ages estimate&quot;,
                         &quot;All ages upper estimate&quot;,
                         &quot;All ages lower estimate&quot;))

# Munge
plot.df &lt;- plot.df %>%
  select(Subgroup, Time.Period, Data.Value) %>%
  spread(Subgroup, Data.Value) %>%
  data.frame()

hovertxt &lt;- paste0(&quot;&lt;b>Year: &lt;/b>&quot;, plot.df$Time.Period, &quot;&lt;br>&quot;,
                   &quot;&lt;b>Est.: &lt;/b>&quot;, round(plot.df$All.ages.estimate/1e6,2),&quot;M&lt;br>&quot;,
                   &quot;&lt;b>Lower est.: &lt;/b>&quot;, round(plot.df$All.ages.lower.estimate/1e6,2),&quot;M&lt;br>&quot;,
                   &quot;&lt;b>Upper est.: &lt;/b>&quot;, round(plot.df$All.ages.upper.estimate/1e6,2), &quot;M&quot;)

# Plot
p &lt;- plot_ly(plot.df, x = ~Time.Period, showlegend = F) %>%
  add_lines(y = ~All.ages.estimate/1e6, line = list(width = 4, color = &quot;#1fabdd&quot;),
            hoverinfo = &quot;text&quot;, text = hovertxt) %>%
  add_lines(y = ~All.ages.lower.estimate/1e6, line = list(color = &quot;#93d2ef&quot;),
            hoverinfo = &quot;none&quot;) %>%
  add_lines(y = ~All.ages.upper.estimate/1e6, line = list(color = &quot;#93d2ef&quot;),
            fill = &quot;tonexty&quot;,
            hoverinfo = &quot;none&quot;)

# New HIV Infections ####
plot.df &lt;- df %>%
  filter(Indicator == &quot;New HIV Infections&quot;) %>%
  filter(Subgroup %in% c(&quot;All ages estimate&quot;,
                         &quot;All ages upper estimate&quot;,
                         &quot;All ages lower estimate&quot;))

# Munge
plot.df &lt;- plot.df %>%
  select(Subgroup, Time.Period, Data.Value) %>%
  spread(Subgroup, Data.Value) %>%
  data.frame()

hovertxt &lt;- paste0(&quot;&lt;b>Year: &lt;/b>&quot;, plot.df$Time.Period, &quot;&lt;br>&quot;,
                   &quot;&lt;b>Est.: &lt;/b>&quot;, round(plot.df$All.ages.estimate/1e6,2),&quot;M&lt;br>&quot;,
                   &quot;&lt;b>Lower est.: &lt;/b>&quot;, round(plot.df$All.ages.lower.estimate/1e6,2),&quot;M&lt;br>&quot;,
                   &quot;&lt;b>Upper est.: &lt;/b>&quot;, round(plot.df$All.ages.upper.estimate/1e6,2), &quot;M&quot;)

# Add to current plot
p &lt;- p %>%
  add_lines(data = plot.df, y = ~All.ages.estimate/1e6, line = list(width = 4, color = &quot;#00587b&quot;),
            hoverinfo = &quot;text&quot;, text = hovertxt) %>%
  add_lines(data = plot.df, y = ~All.ages.lower.estimate/1e6, line = list(color = &quot;#3d83a3&quot;),
            hoverinfo = &quot;none&quot;) %>%
  add_lines(data = plot.df, y = ~All.ages.upper.estimate/1e6, line = list(color = &quot;#3d83a3&quot;),
            fill = &quot;tonexty&quot;,
            hoverinfo = &quot;none&quot;)

# People receiving ART ####
x &lt;- c(2010:2015)
y &lt;- c(7501470, 9134270, 10935600, 12936500, 14977200, 17023200)

hovertxt &lt;- paste0(&quot;&lt;b>Year:&lt;/b>&quot;, x, &quot;&lt;br>&quot;,
                   &quot;&lt;b>Est.:&lt;/b> &quot;, round(y/1e6,2), &quot;M&quot;)

p &lt;- p %>%
  add_lines(x = x, y = y/1e6, line = list(width = 5, color = &quot;#e61a20&quot;),
            yaxis = &quot;y2&quot;,
            hoverinfo = &quot;text&quot;, text = hovertxt)

# Layout
p &lt;- p %>%
  layout(xaxis = list(title = &quot;&quot;, showgrid = F, ticklen = 4, ticks = &quot;inside&quot;,
                      domain = c(0, 0.9)),
         yaxis = list(title = &quot;&quot;, gridwidth = 2, domain = c(0, 0.9), range = c(-0.01, 4)),
         yaxis2 = list(overlaying = &quot;y&quot;, side = &quot;right&quot;, showgrid = F, color = &quot;#e61a20&quot;,
                       range = c(5,18)),

         annotations = list(
           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0, y = 1, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>Keeping the pressure up&lt;br>&lt;sup>Worldwide, (in millions)&lt;/sup>&lt;/b>&quot;,
                font = list(size = 18, family = &quot;Arial&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0, y = -0.07, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>Source: UNAIDS&lt;/b>&quot;,
                font = list(size = 10, family = &quot;Arial&quot;, color = &quot;#bfbfbf&quot;)),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 1995, y = 3.92, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>New HIV Infections(per year)&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;, color = &quot;#00587b&quot;)),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 1999, y = 1, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>AIDS related deaths (per year)&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;, color = &quot;#1fabdd&quot;)),

           list(xref = &quot;plot&quot;, yref = &quot;plot&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 2010, y = 3, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>People receving Anti-&lt;br>Retroviral Therapy (total)&lt;/b>&quot;,
                font = list(size = 12, family = &quot;Arial&quot;, color = &quot;#e61a20&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;right&quot;,
                x = 0.85, y = 0.98, showarrow = F,
                align = &quot;left&quot;,
                text = 'Inspired by &lt;a href = &quot;http://www.economist.com/blogs/graphicdetail/2016/05/daily-chart-23&quot;>The economist&lt;/a>',
                font = list(size = 12, family = &quot;Arial&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;middle&quot;,
                x = 0.375, y = 0.9, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>Lower bound&lt;/b>&quot;,
                font = list(size = 10, family = &quot;Arial&quot;, color = &quot;#8c8c8c&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;middle&quot;,
                x = 0.375, y = 0.95, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>Higher bound&lt;/b>&quot;,
                font = list(size = 10, family = &quot;Arial&quot;, color = &quot;#8c8c8c&quot;)),

           list(xref = &quot;paper&quot;, yref = &quot;paper&quot;, xanchor = &quot;left&quot;, yanchor = &quot;middle&quot;,
                x = 0.485, y = 0.925, showarrow = F, align = &quot;left&quot;,
                text = &quot;&lt;b>Estimate&lt;/b>&quot;,
                font = list(size = 10, family = &quot;Arial&quot;, color = &quot;#8c8c8c&quot;))
         ),

         shapes = list(
           list(type = &quot;rectangle&quot;,
                xref = &quot;paper&quot;, yref = &quot;paper&quot;,
                x0 = 0.45, x1 = 0.48, y0 = 0.9, y1 = 0.95,
                fillcolor = &quot;#d9d9d9&quot;,
                line = list(width = 0)),

           list(type = &quot;line&quot;,
                xref = &quot;paper&quot;, yref = &quot;paper&quot;,
                x0 = 0.45, x1 = 0.48, y0 = 0.9, y1 = 0.9,
                line = list(width = 2, color = &quot;#8c8c8c&quot;)),

           list(type = &quot;line&quot;,
                xref = &quot;paper&quot;, yref = &quot;paper&quot;,
                x0 = 0.45, x1 = 0.48, y0 = 0.95, y1 = 0.95,
                fillcolor = &quot;#bfbfbf&quot;,
                line = list(width = 2, color = &quot;#8c8c8c&quot;)),

           list(type = &quot;line&quot;,
                xref = &quot;paper&quot;, yref = &quot;paper&quot;,
                x0 = 0.45, x1 = 0.48, y0 = 0.925, y1 = 0.925,
                fillcolor = &quot;#bfbfbf&quot;,
                line = list(width = 2, color = &quot;#404040&quot;))),

         height = 600,width = 1024)

print(p)</pre>
<p><iframe height="600" width="1024" src="https://plot.ly/~riddhiman/371.embed"></iframe></p>
<p><div><div><div><div data-width="55" data-show-faces="false" data-send="true" data-layout="box_count" data-height="62" data-href="http://www.r-bloggers.com/time-series-charts-by-the-economist-in-r-using-plotly/"></div></div><div><a data-url="http://www.r-bloggers.com/time-series-charts-by-the-economist-in-r-using-plotly/" data-counturl="http://www.r-bloggers.com/time-series-charts-by-the-economist-in-r-using-plotly/" data-count="vertical" data-text="Time series charts by the Economist in R using Plotly" class="twitter-share-button" data-via="rbloggers" href="https://twitter.com/share"></a></div><div></div></div><div></div></div>
<div>
<div>To <strong>leave a comment</strong> for the author, please follow the link and comment on their blog: <strong><a href="http://moderndata.plot.ly/time-series-charts-by-the-economist-in-r-using-plotly/"> R – Modern Data</a></strong>.</div>
<hr>
<a rel="nofollow" href="http://www.r-bloggers.com/">R-bloggers.com</a> offers <strong><a rel="nofollow" href="http://feedburner.google.com/fb/a/mailverify?uri=RBloggers">daily e-mail updates</a></strong> about <a title="The R Project for Statistical Computing" rel="nofollow" href="http://www.r-project.org/">R</a> news and <a title="R tutorials" rel="nofollow" href="http://www.r-bloggers.com/?s=tutorial">tutorials</a> on topics such as: <a title="Data science" rel="nofollow" href="http://www.r-bloggers.com/?s=data%20science">Data science</a>, <a title="Big Data" rel="nofollow" href="http://www.r-bloggers.com/?s=Big%20Data">Big Data, <a title="R jobs" rel="nofollow" href="http://www.r-users.com/">R jobs</a>, visualization (<a title="ggplot and ggplot2 tutorials" rel="nofollow" href="http://www.r-bloggers.com/?s=ggplot2">ggplot2</a>, <a title="Boxplots using lattice and ggplot2 tutorials" rel="nofollow" href="http://www.r-bloggers.com/?s=boxplot">Boxplots</a>, <a title="Maps and gis" rel="nofollow" href="http://www.r-bloggers.com/?s=map">maps</a>, <a title="Animation in R" rel="nofollow" href="http://www.r-bloggers.com/?s=animation">animation</a>), programming (<a title="RStudio IDE for R" rel="nofollow" href="http://www.r-bloggers.com/?s=RStudio">RStudio</a>, <a title="Sweave and literate programming" rel="nofollow" href="http://www.r-bloggers.com/?s=sweave">Sweave</a>, <a title="LaTeX in R" rel="nofollow" href="http://www.r-bloggers.com/?s=LaTeX">LaTeX</a>, <a title="SQL and databases" rel="nofollow" href="http://www.r-bloggers.com/?s=SQL">SQL</a>, <a title="Eclipse IDE for R" rel="nofollow" href="http://www.r-bloggers.com/?s=eclipse">Eclipse</a>, <a title="git and github, Version Control System" rel="nofollow" href="http://www.r-bloggers.com/?s=git">git</a>, <a title="Large data in R using Hadoop" rel="nofollow" href="http://www.r-bloggers.com/?s=hadoop">hadoop</a>, <a title="Web Scraping of google, facebook, yahoo, twitter and more using R" rel="nofollow" href="http://www.r-bloggers.com/?s=Web+Scraping">Web Scraping</a>) statistics (<a title="Regressions and ANOVA analysis tutorials" rel="nofollow" href="http://www.r-bloggers.com/?s=regression">regression</a>, <a title="principal component analysis tutorial" rel="nofollow" href="http://www.r-bloggers.com/?s=PCA">PCA</a>, <a title="Time series" rel="nofollow" href="http://www.r-bloggers.com/?s=time+series">time series</a>, <a title="finance trading" rel="nofollow" href="http://www.r-bloggers.com/?s=trading">trading</a>) and more...
<img height="1" alt="" width="1" src="http://feeds.feedburner.com/~r/RBloggers/~4/z_exepJkNWs"></a></div>