```r
long_data = wide_data %>%
  gather(variable, value, var1, var2)

print(long_data)
```

```
## # A tibble: 8 x 3
##      id variable value
##   <dbl> <chr>    <dbl>
## 1     1 var1       1  
## 2     2 var1       1.4
## 3     3 var1       0.1
## 4     4 var1       1.7
## 5     1 var2       0.2
## 6     2 var2       1.9
## 7     3 var2       2.8
## 8     4 var2       1.9
```