You can solve the boundary problem numerically with NDSolve:
With[{a = 2, R = 1},
sol = NDSolveValue[{f''''[y] - 2 a^2 f''[y] - a^2 (a^2 - R a) f[y] == 0,
f[0] == 0, f'''[0] - a^2*f'[0] == 0, f[1] == 0, f''[1] == 0}, f, {y,
0, 1}, Method -> {"Shooting"}];
Plot[sol[y], {y, 0, 1}]]