[this is the table that has the information, it is much larger but I have just included a small part of it](https://i.stack.imgur.com/Uj1RT.png)

Part 1 : (solved) This might seem quite easy, but I am very stuck on creating code to make a graph which shows the change over time. The table shows infant mortality and I just need a graph showing how the infant mortality of one country has changed over time.

Part 2 : how can I fit a line to the data - for example, for just one country? I need to model the data as a linear response. How can I do this?

```

my_data <- structure(list(`1800` = c("Afghanistan", "Albania", "Algeria", 
"Andorra", "Angola", "Antigua and Barbuda", "Argentina", "Armenia", 
"Australia", "Austria"), `1801` = c(469L, 375L, 460L, NA, 486L, 
474L, 402L, 371L, 391L, 387L), `1802` = c(469L, 375L, 460L, NA, 
486L, 470L, 402L, 371L, 391L, 373L), `1803` = c(469L, 375L, 460L, 
NA, 486L, 466L, 402L, 370L, 391L, 359L), `1804` = c(469L, 375L, 
460L, NA, 486L, 462L, 402L, 370L, 391L, 346L), `1805` = c(469L, 
375L, 460L, NA, 486L, 458L, 402L, 369L, 391L, 333L), `1806` = c(469L, 
375L, 460L, NA, 486L, 455L, 402L, 369L, 391L, 321L), `1807` = c(470L, 
375L, 460L, NA, 486L, 451L, 402L, 368L, 391L, 309L), `1808` = c(470L, 
375L, 460L, NA, 486L, 447L, 402L, 368L, 391L, 325L), `1809` = c(470L, 
375L, 460L, NA, 486L, 444L, 402L, 367L, 391L, 316L)), row.names = c(NA, 
10L), class = "data.frame")

```