views_big =

read_table("https://data.cyber.org.il/OnTop/StarA/Data/SingersViews.Shir.Israeli.csv")

weeks = ["22/05-28/05", "15/05-21/05", "08/05-14/05", "01/05-07/05"]

​

new_graph()

 

for week in weeks:

  week_filter = filter_data(views_big, "week", week)

  week_filter_sum_views = sum_column(week_filter,"views")

  add_bar_to_graph(week, week_filter_sum_views)

 

draw_graph("מספר צפיות בשבוע","נתוני הצפיות של שיר ישראלי")