Как удалить повторяющиеся значения в определенном столбце без удаления связанной строки - PullRequest
0 голосов
/ 22 мая 2018

Хотите удалить повторяющиеся значения в определенном столбце, не удаляя строки, связанные с повторяющимися значениями столбцов, как показано ниже:

Input
-----
    Date    Market      Quantity
4/2/2018    Indonesia   1000
4/2/2018    Australia   500
4/2/2018    India       300
4/2/2018    USA         500
4/2/2018    Germany     200
5/2/2018    India       400
5/2/2018    Japan       400
5/2/2018    Russia      457
6/2/2018    Austria     260
6/2/2018    Swiss       700
6/2/2018    USA         1200
6/2/2018    Indonesia   400


output
------
    Date    Market      Quantity
4/2/2018    Indonesia   1000
            Australia   500
            India       300
            USA         500
            Germany     200
5/2/2018    India       400
            Japan       400
            Russia      457
6/2/2018    Austria     260
            Swiss       700
            USA         1200
            Indonesia   400

И, если возможно, как построить график (столбец / столбец) для того же вывода(что-то вроде дано)? Пример графика

1 Ответ

0 голосов
/ 23 мая 2018

Я бы добавил это в комментарии, но у меня еще нет прав ...

Я не думаю, что вы на самом деле хотите изменить данные, но, как упоминалось в комментариях, это легкоспособы сделать это.

Если вы просто пытаетесь отобразить многомерные данные в виде графика и просто не знакомы с синтаксисом библиотеки, попробуйте код ниже ...

df <- data.frame(Date = c('2018/04/02','2018/04/02','2018/04/02','2018/04/02','2018/04/02','2018/05/02','2018/05/02','2018/05/02','2018/06/02','2018/06/02','2018/06/02','2018/06/02'),
  Market = c('Indonesia','Australia','India','USA','Germany','India','Japan','Russia','Austria','Swiss','USA','Indonesia'),
  Quantity = c(1000,500,300,500,200,400,400,457,260,700,1200,400),
  stringsAsFactors = F)

plotly::ggplotly(
      ggplot2::ggplot(df, ggplot2::aes(x=Market, y=Quantity)) +
        ggplot2::geom_col(ggplot2::aes(fill=Market))+
        ggplot2::facet_grid(~Date,scale='free_x') +
        ggthemes::theme_tufte()
      )
...